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LIMITS OF LIABILITY AND 
DISCLAIMER OF WARRANTY 


The author and publisher of this book have used their best efforts in 
preparing this book and the programs contained in it. These efforts in- 
clude the development, research, and testing of the programs to deter- 
mine their effectiveness. The author and the publisher make no warranty 
of any kind, expressed or implied, with regard to these programs, the text, 
or the documentation contained in this book. The author and the pub- 
lisher shall not be liable in any event for claims of incidental or conse- 
quential damages in connection with, or arising out of, the furnishing, 
performance, or use of the text or the programs. The programs contained 
in this book and on any diskettes are intended for use of the original 
purchaser-user. The diskettes may be copied by the original purchaser- 
user for backup purposes without requiring express permission of the 
copyright holder. 










Throughout this book, the term “T/S 2000” is used to 
refer to any of the models in the Timex/Sinclair 2000 
series of computers. 


PREFACE 


WARNING! These games may Бе hazardous to your peace of 
mind! You will not find the usual ZAP, ZING, BOOM of the arcade 
games here. These are quiet, peaceful, challenging games of 
concentration and mental skill. They can be a lot of fun, but are 
you up to the challenge? 

Will you be able to locate the pirates’ treasure before the 
pirates find it and use you to scrub the barnacles off their boat? 

Can you keep your cool when lost in a four-dimensional time 
warp with your fuel supply running low? 

Will your powers of deduction waiver as you desperately try to 
locate a bomb before it detonates? 

These games are meant to entertain you. While you are hav- 
ing fun, you will learn about programming and mathematics. First 
of all, a lot of good stuff is crammed into very few lines of code. 
There are useful programming tips that illustrate short cuts in pro- 
grams. Also, the solutions to the games demonstrate some every- 
day, practical mathematics. № you are not familiar with program- 
ming, these short programs will serve as an introduction to 
programming techniques. 

You don't have to use mathematics to solve the games. My 
children, aged 9, 13 and 16, have tested and enjoyed playing the 
games for hours. They use the technique: “by guess or by golly.” 
However, if you are studying mathematics at the high school or 
university level, you will enjoy the challenge of trying to solve the 
games in the quickest, most elegant fashion. In many cases, you 
are encouraged to answer questions or problems that are pointed 
out in the description of a program. 


John Stephenson 
Department of Mathematics 
University of Saskatchewan 
Saskatoon, Saskatchewan 


INTRODUCTION 


This collection of short programs has been written in a version of 
BASIC, which was developed specifically for the ZX81 and the 
TIMEX/SINCLAIR T/S 1000. The programs will also run on the 
more powerful T/S 1500 and T/S 2000. If you have a T/S 1500 or 
T/S 2000, however, there are a few minor alterations you should 
make in the listings. For example, in place of the operation XX for 
raising a number to an exponent as in 4**2 = 4? = 4x4 = 16, the 
T/S 1500 and T/S 2000 use? asin 47 2. Also, the key word 
instructions GOTO and GOSUB have a space inserted so that 
they become GO TO and GO SUB. There is no SLOW or FAST 
option so the use of these can be omitted. Finally, the key words 
RAND and CONT appear in a T/S 1500 and T/S 2000 listing as 
RANDOMIZE and CONTINUE. 

In every case, a 1K version of the game is given. Sometimes 
an additional listing of a 2K version is included when something 
would be gained through using the larger program. Occasionally, 
an additional small change for the T/S 1500 and T/S 2000 is given 
because the character codes are different from that of the ZX81 
and T/S 1000. 

The object was to keep the programs short and snappy. This 
meant that the use of prompts and screen displays had to be kept 
to the bare essentials. The point is, you will be able to enter a 30- 
line program in less than 10 minutes. There is less chance of 
making typographical errors with short programs. If you do make 
an error, it should not be difficult to find the error and debug your 
code. The listings given are identical to the screen display of your 
entered program. If the spaces do not match, there is something 
wrong in your entry of the code (with the exceptions pointed out 
above for the T/S 1500 and T/S 2000). 

These programs will be quite useful to beginners in program- 
ming. They will also give you a chance to become acquainted with 
-analytic geometry, linear equations, quadratic equations, systems 
of linear and non-linear equations, conics, Lagrange Interpolation, 
probability and statistics, binomial probability, binomial expansion, 
Pascal's triangle, the arithmetic of complex numbers, representa- 
tion of numbers in different bases, Cartesean and polar coordi- 
nates, distances measured by different norms, the I-norm and the 


ix 


Euclidean norm. There are also games of logic, concentration, and 
of course, arithmetic. If you are unfamiliar with the standard math- 
ematical functions, there is a program which draws the functions 
for you, illustrating their special features. 

Unlike arcade games, these games rarely use graphics. For 
the most part, the display is used only for prompts, answers, and 
messages of praise or doom! The essential features of the games 
are that they develop concentration, imagination, logic and the 
ability to do mental arithmetic. 

The games are listed alphabetically, but they are not catego- 
rized as to mathematical content or difficulty. Accordingly, the book 
is like a potpourri and you are cordially invited to dip into it in any 
order that takes your fancy. You might find it helpful to refer to the 
following where the games are categorized as to their mathemati- 
cal content. 


Content Game 

Word games: Anagrams, Enigma 

Memory and concentration: Flash, Knight, Loose Change, Simon, 
Verify 

Mental arithmetic: Cryptic, Human Arithmetic, Jugs, Rally, 
Xchange 

Number bases: Base, Nim, Your Number Is Up, Zen 
Stacks 

Lagrange interpolation: Anagrams 

Analytic geometry: Detonation, Quest, Trek, U-Boat, Warp 

Logical thinking: Monkey Puzzle, Nim, Zen Stacks 


Linear equation and 
system of linear equations: Detonation, Obscure Ages, Rally, Trek 


Gauss elimination: Obscure Ages, Rally, Trek 
Cartesian coordinates: Detonation, Quest, Trek, U-Boat, Warp 
Cylindrical coordinates and 

polar coordinates: U-Boat 
Probability and statistics: Invader 
Euclidean distance: Detonation, U-Boat 
Distance measured by I-norm: Quest, Trek, Warp 
Complex arithmetic: Human Arithmetic 
Quadratic equations and 

nonlinear equations: Product and Sums 
Mathematical functions: Graphs 


The experience gained from teaching mathematics for 20 
years has gone into these games. It is my belief that it is possible 
to learn mathematics and the ability to think clearly and logically 


X 


through the use of games. This can Бе а lot of fun for children of 
all ages, including those of us who are merely young in heart! The 
presentations and explanations of the games are given in a tutorial 
fashion, as if | were by your side explaining things to you as you 
go along. You should find this approach less formal and stuffy than 
your usual mathematics textbook. My children and their friends 
have enjoyed playing these games. It is my hope that you will 
enjoy playing them as much as we did. 


This little book of fun and qames is dedicated to 
my children, Margot, Blake, and James 
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“Anagrams” (1K) 


10 RAND 

20 ТЕТ A$="RILETORNCLIPPOURFOR 
THSURLYSLOTSARGUESLOWLYFIRMLYGRO 
WTHMENACEFIGURESTRUMPETSMARTENBA 
STION" 

30 LET W= INT (4%RND) 

40 LET X=INT (4*RND) 

50 LET L=X+4 

60 LET P=X*(2*X+ 14) +WXL+1 

70 ТЕТ B$=A$(P TO P+L-1) 

80 ТЕТ E$=B$ 

90 ТЕТ F$=B$ 

100 РОВ I=1 TO L 

110 ТЕТ J=INT (L*RND) +1 

120 ТЕТ C$=F$(J) 

139 ТЕ C$=" " THEN GOTO 119 
140 LET B$(I) =C$ 

150 LET F$(J)2" " 

160 NEXT I 

165 PAUSE 100 

170 CLS 

175 PRINT B$;" THE WORD IS 2" 
180 INPUT D$ 

190 IF D$="." THEN PRINT E$;Q 
200 IF D$<>E$ THEN GOTO 230 
219 PRINT "RIGHT" 

220 GOTO 30 

220 PRINT "WRONG" 

240 GOTO 165 


NOTE: Use capital letter mode оп the T/S 1500 and T/S 2000 
when you run the program. 


Anagrams 3 


"Anagrams" 


Some people are good at anagrams, making words out of a jum- 
ble of letters. This program is designed to improve your skill with 
anagrams. 

Mathematics can sometimes be like sorting out an anagram. 
You have all the facts, all the data, but they are jumbled up. With 
training, you learn how to make sense out of the chaos. By trial 
and error you patiently work through the different possibilities, until 
a flash of inspiration or insight guides you to the correct solution. 

Of course, the list of words is short and fixed, so to make the 
game more interesting, you should have the word list altered by a 
friend, and then test your skill. To save memory space and to 
disguise the words, | have placed the "dictionary" of words in A$ 
at line 20. There are 4 words of 4 letters followed by 4 of 5 letters, 
then 4 of 6 letters and finally 4 of 7 letters. You must replace words 
in precisely this fashion because the program is designed to pick 
out a sequence of letters from A$ that forms a word. | used a 
mathematical technique call interpolation to do this. 

The start of the four-letter words is at the first letter of A$. The 
start of the five-letter words is at letter 17 of A$. Six-letter words 
start at the 37th letter of A$ and seven-letter words at the 61st 
letter of A$. The formula 


Р = Xx (2xX+14) + 1 


is used in line 60 to find the starting point of the words, where the 
length of the words is Х+4. 

Let us try out the formula. For X = 0 (words of length 4), P= 1. 
For X21 (words of length 5), P2 17, and so on. A method of 
finding this formula is called Lagrange Interpolation. What | needed 
was P=1 for X0, P=17 for Х-1, Р=37 for X2, P=61 for 
X23. | decided to subtract 1 from all the values of P to have 
easier numbers. So now | wanted P = 0 for X 0, P 2 16 for Х = 1, 
P = 36 for X22 and P = 60 for X23. 

We construct the required function P of X by using polynomi- 
als. A polynomial P, for example, is a function like P = 2x? - Зх 
+ 4. We build the polynomial P from basic polynomials that have 
the value 1 at only one point and are zero for all of the other 
points. In this case, we want a polynomial that is zero at X = 0, 2 
and 3. We start with А = X(X — 2) (X — 3), which has the required 


4 Brain Games for Kids and Adults 


values of zero. We want R = 1 at X = 1. In this case, R = 2, so 
we divide by 2 to get 


В = X(X- 2)(X — 3/2 
In a similar fashion, we define 
$ = -ХХ-1)Х-3)2 


which has the value 1 at X = 2 and is zero at X = 0, 1 and 3. 
Finally, we define 


T = ХХ-1)Х-2)6 
which has the value 1 at X = 3 and is zero at X = 0, 1 and 2. 


The interpolating polynomial P that we require is a combina- 
tion of these basic polynomials. 


Р = Rx16 + Sx36 + T*60 
= X*(2*X + 14) 

The program will continue automatically when you correctly 
identify a word. There is no limit to the number of guesses you 
make for each word. If you wish to quit at any time, just enter a 
period. The program will print the word and then stop because Q 
is an undefined variable in line 190. If you get stuck on a word, this 
is the way to stop the program and to find out what the word is. 
You can then run the program again in order to continue the 
game. 

When you run the program, the jumbled up word is displayed 
on the screen, followed by the prompt 


THE WORD IS? 
After you enter your answer, a response 
RIGHT or WRONG 


will be displayed. If you are right, a new anagram will be given. If 
you are wrong, the screen clears and you are prompted to solve 
the same anagram again. There is a remote possibility that the 
anagram will be presented in its correct form. This can be avoided 
by typing in one additional line, if you have more than 1К of 
memory: 

162 IF B$=E$ THEN GOTO 99 

lf you have 2K or more memory, the word list can be ex- 
tended. In the following example, | give the additional lines that 
you would add to increase the word list to 96 words. You should 
find the 2K program most challenging. 


Anagrams 


“Anagrams” (2K) 


10 RAND 

15 GOTO 18+2*INT (6*RND) 

18 LET A$="ALLYBAILCHITDIMEDIG 
ITFLIRTGRAINHOUSEFIDGETHOURLYLIN 
INGNOZZLEMOVABLEOP INIONPARTNERRE 
COVER" 

19 GOTO 39 

20 LET A$="RILETORNCLIPPOURFOR 
THSURLYSLOTSARGUESLOWLYFIRMLYGRO 
WTHMENACEFIGURESTRUMPETSMARTENBA 
STION" 

21 GOTO 30 

22 LET A$="FROGHALFMASTRENTWHE 
ELTRUSTSTUFFSCRUBSCRIPTREBORNPUB 
LICMUTTERINTRUDEHAUGHTYGIRAFFEEN 
CHANT" 

23 GOTO 39 

24 LET А$ = "СОЗННАТТОУЕВВЕМОМНА 
RFTRULYSTUDYSCREWSCREENREALTYPUC 
KERMUTINYINSTANTHATRACKGHOSTLYDE 
VELOP" 

25 GOTO 30 

26 LET A$="AGOGBACKCHATDIALCHA 
SMFLIRTGENUSTHIGHHECTICJIGGERLIG 
ATEMOTHERLIGHTENNOXIOUSPAPRIKARE 
BOUND" 

27 GOTO 39 

28 LET A$ = "ATRYBABECHEFDIETCHE 
STFIGHTGERMSHEDGEHEIGHTJESTERLIM 
PETNOTICEMOUTHEDOILSKINPARABLERE 
ALIZE" 

30 ТЕТ W=INT (4*RND) 

40 ТЕТ X=INT (4*RND) 

50 LET L=X+4 

60 LET P=X*(2*X +14) + W*L+1 

70 ТЕТ B$=A$(P TO Р+Г- 1) 

80 ТЕТ Еф =В$ 

90 ТЕТ F$=B$ 

100 FOR Т=1 TO L 
119 LET J=INT (L*RND) +1 
120 ТЕТ C$=F$(J) 
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120 IF C$=" " THEN GOTO 119 
140 LET B$(I)-C$ 

159 LET F$(J)=" " 

160 NEXT I 

162 IF B$=E$ THEN СОТО 99 
165 PAUSE 19g 


179 CLS 

175 PRINT B$;" THE WORD IS ?" 
180 INPUT D$ 

190 IF D$="." THEN PRINT E$;Q 


200 IF D$< >Е% THEN GOTO 239 
210 PRINT "RIGHT" 

229 GOTO 15 

239 PRINT "WRONG" 

249 GOTO 165 
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“Base” (1K) 


5 LET Z=CODE "А" — 10 

10 DIM S$(32) 

15 CLS 

20 PRINT "ENTER BASE FROM 2 TO 
16" 

30 INPUT D 

35 CLS 

40 PRINT "ВАЗЕ IS ";D 

60 PRINT "ENTER NUMBER 1 TO 42 
94967295! 

79 INPUT A$ 

80 PRINT A$;" IN BASE ";D;" IS 
" 

85 ТЕТ A=VAL A$ 

99 GOSUB 200 

110 PRINT "ENTER @ NEW BASE 1 N 
EW NUMBER" 

120 INPUT G 

130 ТЕ NOT G ТНЕМ GOTO 15 

140 IF G=1 ТНЕМ GOTO 35 

150 STOP 

200 ТЕТ I=1 

220 LET B=A—DXINT (A/D) 

230 ТЕТ A=INT (A/D) 

235 IF В>9 THEN ТЕТ S$(33-I)=CH 
R$ (Z+B) 

236 ТЕ В>9 THEN GOTO 250 

249 LET S$(33-1)=STR$ B 

250 LET I=I+1 

260 IF A>@ THEN GOTO 229 

270 PRINT S$(34-I TO 32) 

280 RETURN 


“Base” 


This is a simple program that teaches you how to convert any 
decimal number of your choice to its representation in another 
base of your choice. The limitations are given in the prompts. The 
number must lie between 1 and 4294967295, which is 2**32 - 1, 
the largest integer your computer can store accurately. However, it 
cannot display such a large number accurately, unless it is treated 
as a string. 

The number base usually used by a computer is binary, or 
base 2. This means that there are only two digits (0 and 1) used in 
the number system. However, base 8 and base 16 are also used 
by many computers. Numbers represented in base 16 are said to 
be in hexadecimal format. We need more symbols to represent the 
digits in this format, so besides the digits 0 to 9, we use A, В, C, D, 
E and F to represent 10, 11, 12, 13, 14 and 15, respectively. In 
machine language programming, it is convenient to represent 
numbers in hexadecimal format. 

This program-game will help you master the concept of repre- 
senting numbers in different bases in the range of 2 to 16. To test 
your ability, try your hand at the game “YOUR” NUMBER IS UP 
which appears later in this book. 

To quit, just enter anything other than ® or 1 in answer to the 
prompt 

ENTER @ NEW BASE 1 NEW NUMBER 

When you run the program, the first prompt is 

ENTER BASE FROM 2 TO 16 


Suppose you enter 2. The screen clears and a new message 
and prompt appears 


BASE IS 2 
ENTER NUMBER 1 TO 4294967295 


Suppose you enter 15; then below the above appears 
15 IN BASE 2 IS 1111 

which is the number 15 in base 2. Then the prompt is given 
ENTER @ NEW BASE 1 NEW NUMBER 


Depending upon whether you enter 0 or 1, the program will 
clear the screen and return to the prompt for entering the base, or 
it will repeat the base and prompt for entry of a number. 
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If you have the T/S 1500 or T/S 2000, the code for the charac- 
ters is different. The statements in line 5 and 235 take care of this 
for you. Unfortunately, in some of the programs in this book, it was 
not possible to have this done for you in a 1K program, and you 
will be instructed to make changes. 

The mathematics in this game is repetitive division, which is 
performed in the subroutine starting at line 200. For instance, in 
the example cited above, to express the number 15 in the base 2, 
follow this procedure: 


2 | 15 2 into 15 is 7 with а remainder of 1. Keep 
| 713 dividing by 2 until you reach 0. The 
| 311 remainders give you the required 
wir: r representations, in this case, 1111. 
| 011 

The representation of 15 in the base 3 is given by 

> | 18 The representation is 120. Notice that the 
| 510 last remainder is the first digit in the 
| 112 required representation. 
Ш IL 


The representation of 15 in the base 4 is given by 33. 
4 | 15 
| 313 


| ФІЗ 


You will have noticed that for a base N, the only digits occurring in 
the remainders are N-1, N-2, ..., 1, Q. 

For bases greater than 10, the arithmetic becomes more diffi- 
cult, and we have to use the letters A to F to represent remainders 
10 to 15. For example, in finding the representation of 119 in the 
base 12, we proceed as follows: 


12 | 119 
| 91 11 
| 019 


The representation is 9B, where B represents the number 11. 
When you have mastered the game, you could try your hand 
at doing arithmetic with numbers in various bases. For instance, 
try adding and subtracting numbers represented in base 2. Having 
mastered that, you might like to try multiplication and division. 


FF+GH=HI 
DCB+CBA=GEC 


УМУ-РРР-О020 
NO+UT=VV 
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“Cryptic” (1K) 


1) DIM A$(3,3) 

29 DIM B$(3,3) 

39 PRINT "ENTER+ OR —" 

49 INPUT O$ 

50 LET I=15*RND 

60 LET С= ІМТ (549XRND) 

70 LET B=INT (449XRND) 

8g IF O$="+" THEN ТЕТ А-С-В 

90 IF O$="-—" THEN LET A=C+B 
100 ТЕ A< =99 ТНЕМ GOTO 68 

110 LET B$(1) =STR$ A 

120 ТЕТ В$(2) =STR$ В 

130 ТЕТ B$(3) =STR$ С 

140 FOR J=1 TO 3 

150 FOR К=1 TO 3 

160 ТЕТ A$(J,K) =CHR$ (VAL B$(J, 
К) +I+CODE "А") 

170 NEXT К 

180 NEXT J 

198 PRINT AT 9,9;A$(1);0$;A$(2) 
;"=";A$(3) 

230 PRINT "ANSWER IS?" 

240 INPUT Z 

250 IF Z< >C THEN GOTO 280 

268 PRINT "RIGHT" 

278 STOP 

280 PRINT "WRONG.DIGIT?" 

299 INPUT W 

295 CLS 

300 FOR J=1 TO 3 

310 FOR K=1 TO 3 

320 IF VAL B$(J,K)=W THEN LET A 
$(J,K) =CHR$ (W+CODE "@") 

330 NEXT К 

340 NEXT J 

369 GOTO 199 
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44 Crypti с” 


In this program уои have the choice of problems іп addition ог 
subtraction. The program gives you the prompt 


ENTER + OR — 


After you enter one of these operations, a problem involving three 
digit numbers is randomly chosen and displayed for you in a co- 
ded form, where letters replace the digits. For instance 


123 + 234 = 357 
might be displayed as 
ABC + BCD = CEG 


The game is to work out and enter the answer 357. After each 
guess at the answer, you are asked for a digit. If the digit you enter 
occurs in the numbers, then it will be displayed in its proper place 
the next time you are prompted to give the answer. 

To quit, just enter Q in answer to any prompt. Occasionally 
the program runs into an error at line 160 when a randomly gener- 
ated number has only two digits. The first number is safeguarded 
by line 100, but there was insufficient memory for me to safeguard 
the other numbers. If you have more than 1К memory, this fault 
can be corrected by changing line 100 to: 


10) IF А< -99 OR B< «99 OR C< «99 THEN GOTO 69 


If you have more than 1K of memory available in your ma- 
chine, you might like to make this game а little more challenging. 
Have the program pose a sequence of problems, starting with two- 
digit numbers and ending in nine-digit numbers. In the following 
listing | have included additional lines to accomplish this. 
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“Cryptic” (2K) 


10 DIM A$(3,9) 
29 DIM B$(3,9) 
25 FOR P=2 TO 9 
30 PRINT "ENTER+ OR —" 
49 INPUT 0$ 
50 LET I=15*RND 
55 ТЕТ M=1@**(9-P) 
57 ТЕТ L2 19**(P — 1) 
60 LET C2 INT (555555555/M#RND) 
70 LET B2 INT (444444444/MXRND) 
80 IF 0$="+" THEN LET A=C-B 
90 IF O$="—" THEN LET A=C+B 
100 IF A<L OR B<L OR C<L THEN G 
OTO 69 
110 LET B$(1) =STR$ A 
120 LET B$(2) =STR$ B 
130 LET B$(3) =STR$ C 
14) FOR J=1 TO 3 
150 FOR К=1 TO P 
168 LET A$(J,K) =CHR$ (VAL B$(J, 
К) +I+CODE "А") 
170 NEXT К 
180 NEXT J 
190 CLS 
200 PRINT A$(1, TO Р);0$;4$(2, 
ТОР)" ж";АҮ0(3, ТОР) 
230 PRINT "ANSWER IS?" 
249 INPUT Z 
250 IF Z< >C THEN GOTO 280 
260 PRINT "RIGHT" 
263 PAUSE 199 
264 CLS 
265 NEXT P 
278 STOP 
280 PRINT "WRONG.DIGIT?" 
299 INPUT W 
295 CLS 
300 FOR J=1 TO 3 
310 FOR K=1 ТОР 
320 ТЕ VAL B$(J,K)=W ТНЕМ ТЕТ А 
$(J,K) =CHR$ (М + CODE ng) 
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330 NEXT К 
349 NEXT J 
369 GOTO 199 

There is one minor fault in the 2K version. This occurs with 
nine-digit numbers. Whenever one of the numbers exceeds the 
number 4294967295 then either the arithmetic will be faulty or 
your correct answer will not be recognized as being correct. Unfor- 
tunately, there is nothing we can do to rectify this, unless we resort 
to machine code, or break up all tne numbers into two parts, one 
with an appropriate exponent. You might like to try your hand at 
the latter solution. 
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“Detonation” (1K) 


10 RAND 

20 DIM X(3) 

39 DIM A(3) 

40 FOR I=1 TO 3 

59 LET Х(І) «ІМТ (12QXRND) 

60 IF Х(І) =@ THEN GOTO 50 

70 LET A(1)29 

80 NEXT I 

90 LET C2 

100 CLS 

119 LET D=g 

120 FOR I=1 TO 3 

130 ТЕТ D=D+ABS (X(I)-A(I))**2 
140 NEXT I 

150 LET D=INT SQR D 

160 IF D=Ø THEN GOTO 259 

170 IF С=20 THEN GOTO 279 

180 PRINT "AT ";A(1);TAB 6;A(2) 
TAB 9;A(3);" BOMB DISTANCE ";D; 


ТАВ @;"DETONATION IN ";20-С 


2 


19Ø PRINT "NEW COORDINATES?" 
200 FOR Т=1 TO 3 

210 INPUT А(Т) 

220 NEXT I 

23g LET C=C+1 

240 GOTO 19g 

250 PRINT "SAFE!" 

260 STOP 

270 PRINT "BLAM ";X(1);" ";X(2) 


«tt ";Х(3) 


28% STOP 


Detonation 19 


“Detonation” 


You start at the point 0,0,0 in a large building having 1,000,000 
rooms in К. Each room is designated by a set of three coordinates 
0 to 99, 0 to 99, 0 to 99. A bomb is set in a room chosen at 
random and is due to DETONATE in 20 moves. You are given the 
distance from your present position and the bomb at each turn 
and are asked to enter new coordinates. You enter your coordi- 
nates A, B and C one after the other. These are your guesses for 
the bomb coordinates X, Y and Z, respectively. The distance, D, is 
measured by the Euclidean rule: 


О = SOR((A - ХУ + (B - Y? + (С - ХУ) 
Actually, you are given an integer, INT D. 

This is a challenging game and the suspense builds as you 
approach DETONATION. Fortunately no one is hurt if you fail to 
find the bomb in time, so you can restart the program and try 
again, and again, and... 

То quit, enter О in response to the prompt for new coordi- 
nates. 

Mathematically, the solution is given (as an example) by the 
point of intersection of three spheres inside the cubic building 
centered at (0,0,0), (99,0,0) and (0,99,0). 

That 1$, you must solve 

Х + \ + Z° = 

(X — 99} + У? + 22 = DS 

X + (Y - 99} + Z° = 
If you do this you are guaranteed to find the bomb т 3 moves! 
This is an example of the use of a branch of mathematics called 
analytic geometry, which is a very useful mathematical technique. 
If you study calculus at a university, you will also study analytic 
geometry. 

To solve this system of second degree equations, we subtract 
the first equation from the second to obtain 


(X = 99} = X = 05 - Di 

Expanding the first part we get 

Хг — 198X + (99? — X =D - D? 

Canceling the X?, we get by subtracting (99) from both sides 
— 198X = - (99? + 05 - D° 
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Since the distances D, and D, are given to you, all the quanti- 
ties on the right hand side are known, so we can find X by dividing 
ру - 198. 

We до the same with the third equation. We subtract the first 
equation from the third equation to get 


(Y = 99) - Y° = D$ — D; 
From which we obtain Y. 


Finally, Z is found from the first equation, now that we know 
what X and Y are. Thus 

Ze = Xx — Y 

We take the positive square root for Z. 

NOTE: All of this is perfectly correct in theory, provided the 
distances D,, D, and D, are known exactly. However, in this дате 
the distances are rounded off to integers. It usually makes no 
difference. However, | want to warn you that if, after all this analytic 
geometry and algebra, you are still distance 1 from the bomb, you 
will have to finish the problem “by guess and by golly." 

If you fail to find the bomb in 20 moves, the bomb explodes 
with a BLAM, and the coordinates where the bomb was located 
are displayed. 

There is nothing sacred about the points (99,0,0) and (0,99,0) 
that | used in my solution. You will find that the arithmetic is easier 
to do if you use the points (50,0,0), (0,50,0) and (0,50,0). | leave 
you to work out the details. 
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“Enigma” (1K) 


5 SLOW 
10 RAND 
15 CLS 
20 ТЕТ C=INT (25*RND) +1 
20 PRINT "ENTER YOUR MESSAGE A 
ND I WILL CODE IT.FINISH WITH 
A PERIOD. USE < FOR A SPACE." 
36 PRINT 
4g IF ТМКЕУ$ < >"" THEN GOTO 49 
59 IF INKEY$="" THEN GOTO 50 
69 ТЕТ A$=INKEY$ 
70 ТЕТ B=CODE Аф 
89 IF B=CODE "<" THEN GOTO 200 
100 IF B=CODE "." THEN GOTO 140 
119 ТЕТ D=B+C 
115 ТЕ D>CODE "7" ТНЕМ ТЕТ D=D- 
26 
120 PRINT CHR$ D; 
139 GOTO 40 
149 PRINT 
145 PRINT " THE CODE IS PLUS?" 
150 INPUT E 
155 PRINT 
169 IF Ес С THEN PRINT "RIGHT" 
170 IF E< >C THEN PRINT "WRONG I 
T IS "50 
175 PAUSE 200 
195 GOTO 15 
200 PRINT " "; 
210 GOTO 49 
NOTE: "" represents two quotes and defines an empty string, line 
40 waits for you to lift your finger off the keyboard and line 50 waits 
for you to press a new key. 
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“Enigma” 


This program converts your computer into a coding typewriter, 
something like the German coder of the second world war, which 
was called ENIGMA. As you type in a message, it is displayed in 
coded form. You terminate your message by typing a period. A 
Space is not accepted so you must use < to type a Space in your 
message. 

After your message has been typed, you are asked to solve 
the code. The letters in the alphabet have simply been shifted to 
the right by a constant number of letters. This is the number you 
are prompted to enter. 

Of course it will not be challenging for you because you know 
what the original message was! But challenge a friend to solve the 
code. One person types in a message and then the other attempts 
to decode it. After a little experience you will be a master at 
decoding secret messages. To quit during entry of your message, 
just press the space key. 

This is a very simple form of coding and would be too easy to 
crack. Mathematicians and computer scientists are working on 
developing codes that are almost impossible to crack. So much 
important personal and financial information is stored in data 
banks, you can imagine how important it is to protect that informa- 
tion from unauthorized use. 

If you have more than 1К of memory, you might like to try a 

much more challenging version of ENIGMA. In this version, the 
letters of the alphabet are randomly mixed up! You could not find a 
more difficult code to break! You would have to look at patterns of 
repeating letters and three letter words and, by trial and error, try to 
break the code. 
Warning: In this version, you will be able to use only letters and < 
for aspace. The program will not tolerate any other input except a 
period to end your message. This means no punctuation, numbers 
or brackets are permitted in your message. 
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“Enigma” (2K) 


5 SLOW 

10 RAND 

12 LET Z1=CODE "А"-1 

15 GIS 

16 PRINT "GENERATING THE CODE" 

20 DIM C(2,26) 

21 FOR I=1 TO 26 

22 LET C(1,1)=1 

23 NEXT I 

24 FOR I=1 TO 26 

25 LET J=INT (26*RND) +1 

26 IF C(1,7) =Ø THEN GOTO 25 

27 LET C(1,J) =Ø 

28 LET C(2,1) =J+Z1 

36 NEXT I 

35 PRINT "ENTER YOUR MESSAGE A 
МО I WILL CODE IT.FINISH WITH 
A PERIOD. USE < FOR A SPACE." 

36 PRINT 

40 IF INKEY$< > "" THEN GOTO 49 

50 IF INKEY$="" THEN GOTO 50 

60 LET А$ = ІМКЕҮ$ 

70 ТЕТ B=CODE A$ 

80 IF B=CODE "<" ТНЕМ СОТО 200 
100 IF B=CODE "." ТНЕМ СОТО 149 
110 ТЕТ D=C(2,B-Z1) 

115 ТЕ D>CODE "7" ТНЕМ ТЕТ D=D- 
26 

120 PRINT CHR$ D; 

130 GOTO 49 

140 PRINT 

145 PRINT "ENTER @ FOR THE CODE 
, 1 FOR A NEW CODE" 

150 INPUT E$ 

155 IF E$<>"Q" THEN GOTO 15 
157 CLS 

160 FOR I=1 TO 26 

170 PRINT CHR$ (Z1+1);"=";CHR$ 
(6(2,1)), 

171 NEXT I 

175 STOP 

195 GOTO 15 


Enigma 25 


200 PRINT " "; 
210 GOTO 49 

When you run the 2K version, it begins with the message 

GENERATING THE CODE 

In about 15 seconds, the message appears 

ENTER YOUR MESSAGE AND I WILL CODE IT.FINISH WITH A 

PERIOD. USE < FOR A SPACE. 

You then type in your message. As you touch the keys, the 
message appears in coded form. You cannot erase mistakes, so 


type carefully! 
When you terminate your message, you will be prompted with 


ENTER Й FOR THE CODE, 1 FOR A NEW CODE 


If you enter 0, a listing of the code appears, giving the code 
letter for each letter in the alphabet, for example: 


С-С О=Е 
etc. 


The program will then stop because of line 175. When you 
wish to continue, press the CONT(INUE) key and ENTER (or NEW 
LINE) key and the program continues with a new code. 

You will have to enter your code with the CAPS LOCK en- 
gaged, or hold down the CAPS SHIFT key because the program 
expects only capital letters in your message. 

Finally, you should delete the statement in line 5 which is not 
required for the T/S 1500 or T/S 2000. 
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“Flash” (1K) 


5 DIM A$(32) 
10 RAND 
15 PRINT "NUMBERS OR LETTERS?E 
NTER N OR L! 
16 INPUT C$ 
20 FOR Т=1 TO 24 
25 PRINT АТ 29,29; WORKING..." 
39 FOR 7-1 TO I 
35 IF C$="N" THEN GOTO 55 
40 ТЕТ S=INT (26*RND) + CODE "A" 
45 LET А%(7) 2CHR$ S 
50 GOTO 69 
55 ТЕТ A$(J) =STR$ (INT (19X*RND 
)) 
60 NEXT J 
63 CLS 
64 PRINT "PRESS ANY KEY WHEN R 
EADY" 
65 IF INKEY$="" THEN GOTO 65 
66 CLS 
70 PRINT AT 1,1;A$(1 TO I) 
80 PAUSE 20--19*I 
99 PRINT AT 1,1;"ENTER SEQUENC 
E" 
100 INPUT B$ 
110 IF В$< >А$(1 TO I) THEN GOTO 
169 
120 PRINT "CORRECT" 
130 PAUSE 50 
140 NEXT I 
15g STOP 
160 PRINT "WRONG ";A$(1 TO I) 
170 PAUSE 250 
175 CLS 
180 GOTO 15 


NOTE: "" in line 65 is two quotes and represents an empty string. 
This statement waits for you to press any key before continuing. 
Use capital letter mode on the T/S 1500 and T/S 2000 when you 


run this program. 


Flash 29 


"КІ ash” 


This program tests your ability to read and remember a sequence 
of letters or numbers flashed on the screen. You are asked for your 
choice of letters or numbers, then starting with a single character 
and increasing by one character each time, a randomly generated 
sequence is flashed for a short time on the screen. Each time you 
enter a correct sequence, another sequence with an additional 
character is flashed for you. If you enter an incorrect sequence, 
the correct one is displayed before the program returns to the 
beginning again. 

This program is designed to increase your concentration and 
your reading speed. You will find it very challenging. | 

To quit, press the SHIFT and BREAK keys together while the 
program is pausing to display the correct answer, or when it is 
working on the next question. 

When you run this program, make sure your machine is in the 
SLOW mode. This is only needed for ZX81 and T/S 1000 users 
because of the INKEY$ statement used in line 65. The program 
commences with the message: 


NUMBERS OR LETTERS?ENTER N OR L 

You then enter one of the letters, N for numbers, or L for 
letters. The message 

WORKING... 


appears at the bottom right of the screen to let you know that the 
program is running and a sequence is being generated. The 
screen then clears, and you are prompted with the message 

PRESS ANY KEY WHEN READY 

Touch any key and instantly, in the top left corner of your 
screen, the first number or letter of a sequence is displayed for a 
short time, about 1/2 second for the first letter or number. You are 
then prompted to enter the sequence by the message 


ENTER SEQUENCE 
If you enter the sequence correctly, the message 
CORRECT 


will be displayed for a short time, and then a new sequence will be 
generated, one character longer than the previous sequence. 
Each time a letter is added, the sequence is displayed for about 
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1/4 second longer. № you enter an incorrect sequence, the mes- 
sage 


WRONG 


will be displayed, followed by the correct sequence. Then you will 
again be prompted to enter N or L and a new sequence will be 
given to you, starting with a single character. 

К is very difficult to get more than 10 characters correct. 
Psychologists have found that the average person has а limit of 
about 7 characters. This program stops at 24 characters. However, 
it is not difficult to increase this to 32 characters. Simply change 
the 24 in lines 20, 30 and 150 to 32. If this is not enough, you 
could increase the dimension of A$ in line 5 and at the same time 
increase the limits set in lines 20, 30 and 150. 

If you need a little more time to view the sequence, alter the 
PAUSE duration in line 80. 

Happy flashing! 
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“Graphs” (1K) 


20 PRINT "ENTER FUNCTION" 

32 INPUT A$ 

35 CLS 

4g PRINT A$ 

45 LET Z=11/6 

50 FOR X2 —4.5 TO 4.5 STEP РІ/1 


55 LET W=X+4.5 

60 IF A$="SIN " THEN LET Y=SIN 

W +Z 

70 IF A$="COS " THEN LET Y=COS 

W +Z 

80 IF A$="TAN " THEN LET Y=TAN 
(W+ .15)/5+2 

90 ТЕ А$ = "ІМТ " THEN LET У INT 
X/3 +Z 

100 IF А$ = "ЕМІ! THEN LET Y =2XRN 
D 

110 IF A$="ASN " ТНЕМ LET Y=ASN 
(X/4.5) +Z 

120 IF A$="ACS " THEN LET Y=ACS 
(X/4.5) 

136 IF A$="ATN " THEN LET Y АТМ 
X+1.4 

159 IF A$="SGN " THEN ТЕТ У =SGN 
X+1 

160 IF A$="ABS " THEN LET Y=ABS 
Х/2 

170 IF A$="SQR " THEN ТЕТ У = 508 
(X+4.5) 

180 IF A$="LN " THEN LET Y=.5*L 
N (X+4.6)+1.5 

190 ІК A$="EXP " THEN ТЕТ Y =EXP 
X/24 

200 PLOT 4X(X+4.5),11XY 

219 NEXT X 

229 GOTO 20 


Graphs 38 


44 Gr aph s” 


Your computer has numerous built-in scientific functions. What do 
they look like? This program displays a picture of some of the 
values of the functions on your screen. This picture is called a 
graph of the function. In order to display the main features, | have 
had to adjust the scales of the graphs and change the set of 
values at which the functions are evaluated. There are an infinite 
number of functions. These are the ones most commonly used. 

When you type in this program, be sure to use the function 
keys. Do not spell out the functions with letters. 

When you run this program, you will be prompted to enter a 
function. Press the function shift key and then the function and 
enter. The name of the function will be displayed at the top of your 
screen, and a plot of the graph of the function will appear on the 
screen. You will then be prompted to enter another function. 

Notice that the graphs of the functions are always the same, 
except for RND, the random number function, which gives a differ- 
ent set of values each time it is graphed. This is, after all, what we 
want RND to do! Other things to note are that some functions are 
smooth, while others have obvious breaks or jumps in them. Some 
functions become infinite at times. For example, TAN has infinite 
jumps. You will notice that COS and SIN are very similar, one 
being shifted across the screen just a little (actually РІ/2 or ар- 
proximately 1.7 units). TAN X = SIN X/COS X, so as you can see, 
whenever, COS X = 0, TAN X becomes infinite. 

A word about inverse functions might be helpful to you. You 
will notice that although SIN, COS and ТАМ аге repetitive func- 
tions, their inverses ARCSIN, ARCCOS and ARCTAN (represented 
in the computer by ASN, ACS and ATN, respectively) do not re- 
peat. The reason for this is that functions must be single valued. 
Every time you put a fixed value of X into your machine, and then 
print the value of a function of X, you would expect to get the 
same answer, unless it was the random function, for example, SIN 
2, ASNO.5, etc. If you get different answers each time, then there 
is something wrong with your computer! 

An inverse function such as ASN X gives a value Y such that 
SIN Y = X. It answers the question: What is the number that has 
a SIN that is X? Since SIN is a repetitive function, there will be 
many (infinite, in fact) values of Y such that SIN Y = X. Yet, we 
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only want one value of Y when we ask the question, “What is the 
number which has a SIN that is X?” We in North America, the 
Russians in the USSR, astronauts on the moon should all get the 
same answer. So it has been arbitrarily decided that the answer to 
the question, “What is the number which has a SIN that is X?” will 
be a unique number in the interval — РІ/2 to РІ/2 (about - 1.7 to 
1.7). Similarly, the values of ATN lie in this interval, but the values 
of ACS lie in the interval 0 to PI, just to be different! Not really, 
because there is another relationship between COS and SIN, and 
that is 


COS(PI/2 - X) = SIN X 


This means that if Y = SIN X, so that X = ASN Y, we also have Y 
= COS(PI/2 — X) so that PI/2 — X = ACS Y. Thus, 


PI/2 — ASN Y = ACS Y 


So if ASN Y can take on values from — РІ/2 to РІ/2, then ACS Y 
must have values from РИ? — (-РІ/2 to PI/2) which is РІ to 0. 
Simple, isn't it? 

You may not find this program very amusing, but if your curi- 
osity is aroused, then | will be satisfied. 

To quit, press the BREAK key after entering a function. 

If you have a T/S 1500 or T/S 2000, the graphics capability is 
much finer. In that case, you should alter the program in this 
fashion 


130 IF A$="ATN " THEN LET Y=ATN 
X4 1.7 

160 IF A$="ABS " THEN LET Y- ABS 
X/2+.3 

170 IF A$="SQR " THEN ТЕТ Y=SQR 
(X+4.5)+.2 

199 ТЕ A$="EXP " THEN LET Y=EXP 
X/30 + .4 

200 PLOT 20%(X+4.5) ,5Q*Y 


(3,4) +(1,—2)=(4,2) 
(—5,9)—(—4,3)=(— 1,6) 


“Human” 
Arithimetic 


(4,2)*(1,1)=(2,6) 
(6,4)(0,2) - (2, —3) 
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“Human” Arithmetic (1К) 
10 RAND 
15 PAUSE 200 
20 CLS 


30 LET J=INT (4*RND) 

40 LET А= ІМТ (19*RND) —9 

50 ТЕТ B=INT (19*RND) - 9 

60 LET C=INT (19*RND) —9 

70 ТЕТ D=INT (19*RND) - 9 

80 ТЕТ K=SQR (C*C+D*D) 

99 IF 7-3 AND K<>INT К THEN GO 
TO 69 

100 PRINT и(и;д; НВ "0"; CHRS 
ALET) t( 50; ОИ) = (E, F)'! 

110 PRINT "INPUT E AND Е" 

120 INPUT Е 

130 INPUT Е 

135 GOTO 150--30%7 

180 LET М-1-2%7 

185 LET G=A+MXC 

190 LET H=B+M*D 

200 GOTO 289 

219 ТЕТ G=A*XC—B*D 

220 LET H=AXD+B#C 

230 GOTO 280 

240 LET K=KX#K 

250 LET Себук 

260 LET D= —D/K 

275 GOTO 210 

280 IF G=E AND H=F THEN GOTO 31 
g 

290 PRINT "WRONG ";G,H 

309 GOTO 15 

319 PRINT "RIGHT" 

329 GOTO 15 
NOTE: If you have a T/S 1500 or T/S 2000, you should make the 
following change in the program because the coding of the char- 
acters +, —, * and / is different from those in the ZX81 апа T/S 
1000. 

199 PRINT "(T5A; 11, м. В.т) CHR$ 

(42 + (J— 2)*(13*J*J — 28*J -3)/6);"(" 

;0;",";D;") = (E,F)" 


Human Arithmetic or 


Here, | used Lagrange Interpolation, which was explained in 
“ANAGRAMS”. | needed an interpolating polynomial P which had 
the value 43 when J=0, 45 when J=1, 42 when J=2 and 47 
when J=3. See if you can derive the expression 


P = 42 + (J —2)x(13xJxJ — 28%) - 3)/6 


“Human” Arithmetic 


Leopold Kronecker, a 19th century mathematician who developed 
the theory of algebraic numbers, once said “God gave us the 
natural numbers (integers greater than 0); everything else was 
created by man.” Hence the name for this program. 

One of the most useful number systems invented is the one 
composed of complex numbers. Numbers belonging to the real 
number system are used to represent the solutions of algebraic 
equations like X 22. We say X = + SQR2 or - SQR2Ə, where 
the quantity SQR2 is a real number whose square is precisely 2. 
We are unable to write SQR2 as a fraction, so we can only approx- 
imately represent it as a decimal expansion 1.414213562 ... to 
any desired accuracy required. 

К you want to solve an equation like X? = —1, what numbers 
do you use? The square of a non-zero real number is positive, so 
complex numbers were invented for this purpose. The key step is 
to introduce the quantity ЗОВ - 1 called i. Then Р = - 1, so we 
have X = і? and the solution is X = +i and X = -i. Such 
numbers were referred to as “imaginary” numbers when they 
were first introduced, but now the term “complex” number is gen- 
erally used. 

In general, a complex number a + ib has two parts, a real 
part, a, and an imaginary part, b. We abbreviate the notation from 
a + b SQR-1 toa + ib and finally to (a,b), which is an ordered 
pair. It is always understood that the second member of a pair is 
multiplied by i. 

The program, “HUMAN” ARITHMETIC, gives you practice in 
the arithmetic of complex numbers. Problems of addition, subtrac- 
tion, multiplication and division are chosen at random. You are 
prompted to enter the solution as an ordered pair (E, F). First enter 
your guess for the number E and then enter your guess for the 
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number F. If you are wrong, the correct answer is displayed. In 
either case, a new problem is posed after a pause. To quit at any 
time, enter Q in answer to the prompt. 

The rules for addition and subtraction are simple. 

(а, б) + (с, 9 = (a + c,b + d) 

(а, Б) - (с, d) = (a — c, b - d) 

However, multiplication and division are more complex! Keep 
in mind that ? = —1, then 


(a, b) х (c, d) = (a + ib) * (c + id) 
акс + (аха) + i(b*c) + Р(ржа) 
(ахс — bxd, аха + bxc) 

Note that (a, 0) acts like a non-complex number, as indeed it 
is. So (a,0) х (c, 0) = ахс and (a, 0) х (c,d) = (ас, ad). In fact, the 
role of 1 in the arithmetic is played by the pair (1,0). 

Division (a, b)/(c, d) is a little tricky. We can divide by all 
complex numbers except (0, 0). The trick is to define the multipli- 
cative inverses for each complex number. That is, what is the 
number 1/(c, d)? A better way of saying this is, what is the com- 
plex number (x, y) such that (с, d) * (x, y) = (1, 0) ? 

You can verify by multiplication that the answer is 


SN маталы; S 
(5 + а С? y 
So the rule 15 


(a, b)/(c, а) = (a,b) * ( C „>d ) 





ске c+ A 
B atc+b*d , b*c-axd 
( с + d° с? + d° ) 


In this program, | had to use some computing tricks like a 
computed GOTO in line 135 to squeeze the program into 1K. For 
the same reason, statements 180 to 190 handle both addition and 
subtraction. Similarly, multiplication and division are both done in 
lines 210 and 220. There is no check to avoid the choice of (0, 0) 
as one of the numbers. If you have more than 1K, you could add a 
line 

75 IF Сер AND рей THEN GOTO 60 
to prevent the possibility of a division by 0. 


Human Arithmetic 39 


When you RUN this program, a problem will be displayed in a 
form like (although / might be replaced Бу +, —, or *) 

(2, —2)/(8, - 8) = (Е,Е) 

INPUT E AND Е 

You will then enter the number you think Е should Бе, and 
then you enter the number you think F should be. 

If you are correct, the message RIGHT is displayed and а 
new problem is posed. If you are not correct, the message 
WRONG is displayed, followed by the correct values of E and Е 
Again a new problem is displayed. 

Because of roundoff in the machine, а fraction like } is not 
stored exactly the same as .25, although it would appear like that 
when displayed on the screen. Convince yourself by typing in 


PRINT 1/4 - .25 


and you should get 1.1641532E-10. For this reason, in the case of 
division, your correct answer might be rejected as being incorrect. 
This defect can be corrected if you have more than 1K memor,. 
What you need to do is replace the line 280 with a statement that 
does not require G=E and H=F exactly. You could use something 
like ABS (G — E) « .01. | leave you to make the necessary changes. 


2 " В 


“Invader” 





см mu | Las d >‏ 3 تچ 


mem 
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“Invader” (1К) 


1 DIM A(9) 

5 RAND 

10 FOR I=1 TO 9 

15 LET А(І) «ІМТ (9*RND) +1 

28 PRINT AT 0,2-1;І 

25 PRINT AT LAL ua " 

39 NEXT I 

35 LET H=g 

40 LET T=$ 

45 SLOW 

46 IF T=49 THEN GOTO 96 

59 PRINT AT 15,9; "ENTER I,J" 

55 INPUT I 

57 INPUT J 

58 IF І<1 OR 7<1 OR I>9 OR 7»9 
THEN GOTO 55 

59 LET T=T+1 

69 IF A(I)=J THEN GOTO 75 

65 PRINT AT I,24J;"* 

70 GOTO 46 

75 PRINT АТ I,2+J;"'H" 

80 LET H=H+1 

85 ТЕ H<9 THEN GOTO 46 

9g PRINT AT 16,9;"YOU WIN I SU 
RRENDER" 

95 STOP 

96 PRINT АТ 16,9;"HA,I WIN" 
NOTES: № is the graphics symbol on the space key. For quick 
setup, select FAST mode before typing RUN if you are using a 
ZX81 or T/S 1000. 


Invader 43 


“Invader” 


If you think that the Swedish Navy is inept at catching those small 
submarines that creep into their territorial waters and escape 
again, here is your chance to see if you could do any better. 

This game sets up a 9 by 9 set of points. The points are 
displayed on the screen in 9 rows. Each row is numbered, and 
each column is also numbered. There are 9 invading submarines 
located one to each row. You are prompted with the message 


ENTER I,J 


You enter a row number, |, which should be an integer from 1 
to 9. Then you enter a column number, J, also from 1 to 9. In- 
stantly, the point at the location |,J on the screen is replaced by х 
ог М. The * indicates that а submarine was not located at the 
point, while № means that you have located a submarine. 

If you make a mistake in your entry and | or J (or both) is 
outside the range from 1 to 9, line 58 will automatically discard 
your entry and return to the request for entry of І and J. In the 1K 
version, there is not enough memory left to give a message about 
wrong input, but you could easily change that if you have extra 
memory. 

Your attempts are counted by the variable T (for tries). You 
only have 40 tries in a game. If you have not located all 9 subma- 
rines by then you have lost the game. The submarines do not . 
move, so if you repeat the entry of a point, it is counted as а try, 
but it is a wasted move. 

There are very sophisticated search methods programmed 
into the computers on board the subchasers. These are based 
upon statistical theory. However, when all is said and done, if you 
are lucky, or have a sixth sense for this sort of thing, you will beat 
the computers every time. 

This game is meant to give you some experience with proba- 
bility and the random number function. You start by setting up а 
simple search pattern, say test 1,5 then 2,5 and so on down the 
fifth column to 9,5. Then quarter the set of points by testing the 5th 
row, or another row if the point 5,5 has already located a subma- 
rine. When a submarine is found on a row, there is no need to test 
any more points on that row. Odd and even columns should have 
the same probability of containing a submarine. Similarly, columns 
less than the 5th column should be chosen with the same fre- 
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quency as columns greater than the 5th. Finally, as you get down 
to the last few submarines, you should first check those columns 
that do not contain a submarine yet. 

However, after saying all this, in one game anything is possi- 
ble! You might try a simple pattern of testing each row sequentially. 
That is, start at 1,1 then 1,2 and so on until you find the submarine 
in that row. Then you start on the second row. Since there are 
nine positions on each row, on the average, there is a better than 
50% chance of locating the submarine in the first 5 positions of 
each row. In fact, the probability is 5/9, in other words, 55 5/9%. 
Overall, this would amount to 45 tries for the 9 rows. What is the 
probability of successfully locating all the submarines in 45 tries by 
this method? 

You could use this game as a research tool to investigate the 
answer to this question, but you would need a lot of patience! You 
would need to play many times; a hundred would do for a rough 
estimate. You would record the number of times this search pat- 
tern was successful. You would need to change line 46 to 


46 IF Т=45 THEN GOTO 96 


For those of you who are like me (a bit lazy), you could 
change the program so that the computer does the search for you. 
The following is a simple 1K program that does this. 


Invader 45 


“Probability” (1K) 


1 DIM A(9) 
5 RAND 
6 CLS 
10 РЕТМТ "ENTER NUMBER ОЕ TEST 
S 
15 INPUT N 
20 LET S= 
25 FOR К=1 TO N 
30 LET H=0 
35 FOR I=1 TO 9 
4g LET H=H+INT (9*RND) +1 
45 NEXT I 
50 IF H« 46 THEN LET S=S+1 
55 NEXT K 
6g PRINT "NUMBER OF WINS IN "; 
N;" GAMES IS ";8 
65 PRINT "PROBABILITY IS ";100 
*S/N;" PERCENT" 
7Q PRINT "ENTER 1 FOR ANOTHER 
EXPERIMENT " 
75 INPUT Y 
8) IF Ү-1 THEN GOTO 6 

Run this program in FAST mode if you are using a ZX81 or 
T/S 1000. It takes about 30 seconds for 100 tests. | hope the 
answer you find agrees with the answer you worked out for your- 
self. If it does, pat yourself on the back and go raid the freezer for 
some of your favorite ice cream. If it does not agree with your 
answer, what the heck, go have some ice cream anyway! 

Now | have a more difficult question for you. Suppose you 
only tried the first 5 positions on each row. That is, whether you 
were successful or not, you check out the 45 positions which are 
the first five positions in each row. What is the probability of finding 
all 9 submarines by this method? 

Make the following alterations to "PROBABILITY" to conduct 
this experiment. 


40 IF б> INT (9*RND) +1 THEN LET H=H+1 
50 IF Н=9 THEN LET S=S+1 


You will find it necessary to increase the number of tests to 
more than 100. By changing H = 9 in line 50, | would suggest that 
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you check the probability of finding 8 submarines by this method, 
and then 7, 6 and so on down to 0. You should plot the results on 
a graph. If you change the grid dimension from 9 by 9 to 8 by 8, 
and search the first four positions in each row, these results would 
be symmetrical. That is, the probability of finding all 8 would be the 
same as finding none. These probabilities are called binomial. You 
would study these and other probability distributions in an elemen- 
tary course on probability and statistics. 
Your results should reproduce approximations to the follow- 
ing: 
G + 3 
= (3) + ANE) + 3606} + 8405) 
+ 126(8)°(3)* + 12600) + 8406) 
+ 36GYEY + 90) (° + B 
This is a binomial expansion. \f the probability of finding a 
submarine in the first five positions on a row is 8, then the probabil- 
ity of not finding a submarine must be š (they always add up to 1). 
Since there are nine rows, we multiply ($ + 8) by itself 9 times. The 
terms in this expansion all add up to 1 and they represent the 
probabilities of finding 0, 1, 2, ..., 9 submarines respectively. Con- 
sequently, the probability of finding all nine submarines is (§) = 
.005 (approximately) or }%. So it is a very poor search pattern! 
The numbers that multiply the powers in the expression are 
called the binomial coefficients. An easy way to find these numbers 
is to use Разса! triangle. 


1 4 6 4 
16 19 5 1 
1 6 15 29 15 6 3 
1.7 21:25 95 21 7 1 
1 8.28 50 70 56 28 8 1 
19 36 84 126 126 84 36 9 1 


Start and end each row with 1. Add the two numbers above for 
each entry in a row. Entries in the nth row are binomial coefficients 
for (a + b)". 

| hope my explanation has not caused you to do anything 
rash, like run away to join the Swedish Navy! 
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“Juqs” (1K) 
10 RAND 


20 LET A=INT (1@*RND) 
30 IF A—2*INT (4/2) 29 THEN GOT 
0 29 
40 LET B=A+2X(INT (19*RND) +1) 
50 LET C=A+2X(INT (1@*RND) +1) 
60 IF C=B THEN СОТО 50 
70 LET D=INT (2@*RND) 
75 IF D=A OR рев OR D=C THEN G 
ОТО 29 
80 PRINT "YOU HAVE JUGS WHICH 
HOLD" 
82 PRINT A;",";B;",";C;" PINTS 
tt 
84 PRINT "HOW WOULD YOU GET "; 
р;" PINTS?" 
86 INPUT R 
88 INPUT S 
99 INPUT T 
95 CLS 
96 FOR L=1 TO 9 
100 FOR I= —L TO L 
110 FOR J=-L TO L 
120 FOR K= —L ТО L 
139 IF IXA+J*B+K*C=D THEN GOTO 
168 
149 NEXT K 
159 NEXT J 
169 NEXT 1 
165 NEXT L 
168 IF AXR+B*¥S+C*¥T=D THEN PRINT 
"CORRECT" 
169 PRINT "MY ANSWER IS" 
170 PRINT I;TAB 5;J;TAB 10;К 
180 PAUSE 700 
190 CLS 
200 GOTO 2) 


Jugs 49 


77 


“Juqs 


This is a painless way of practicing your arithmetic. You have three 
jugs that hold different amounts of milk. By adding and subtracting 
the contents of the jugs, you have to get a precise quantity re- 
quested by a customer with an empty jug. 

When you have worked out your answer, enter the three 
quantities representing the number of times you would add or 
subtract each jug. You enter these numbers one after the other. 
The computer will check your answer and find its own solution. 
There is usually more than one correct answer, so do not be 
surprised if your answer is different from the one given by the 
computer. 

To quit, just enter the letter Q when prompted to enter your 
answer. 

The surprising thing in these problems is that at least one 
solution is usually found in the range - З to З for each of the jugs. 
You might experiment with line 96, changing the search limits to, 
say —2 to 2. You might like to increase the possible size of the 
jugs by changing lines 20, 40 and 50 in which (10*RND) could be 
altered to (20*RND) or something else. You will notice that in these 
lines | have made the quantities A, B and C, which are the sizes of 
the three jugs, to be always odd. The final quantity can be either 
odd or even. Can you figure out why | had to impose this restric- 
tion? It is ап ода thought! 
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“Knight” (1К) 


18 SLOW 

15 LET Yw CODE "A" 

20 RAND 

25 LET Zz CODE "1" 

30 LET C29 

40 CLS 

50 LET AZ INT (8*RND) +Y 

60 LET В ІМТ (8XRND) +Y 

70 LET M=INT (8*RND) +Z 

80 LET N2 INT (8*RND) +Z 

100 PRINT "MOVE FROM ";CHR$ A;C 
HR$ M;" TO ";CHR$ B;CHR$ N 

105 LET C=C+1 

110 PRINT AT C,1;C;" ";CHR$ A;C 
HR$ М;" ТО "; 

120 INPUT D$ 

130 INPUT E$ 

140 IF A=CODE D$ OR M=CODE E$ 0 
В ABS (A—CODE D$) +ABS (M—CODE E$ 
)<>3 THEN GOTO 240 

150 PRINT AT C,9;D$;E$ 

160 LET A=CODE D$ 

170 ТЕТ M=CODE E$ 

180 IF A=B AND M=N THEN GOTO 21 
2 

200 GOTO 195 

210 PRINT "NUMBER OF MOVES = "; 
б 

220 PAUSE 200 

230 GOTO 30 

240 PRINT " INVALID MOVE" 

250 GOTO 105 


Knight 53 


4 Kni qht” 


This is a game of concentration that teaches you to visualize a 
situation in your mind. This ability is essential in the field of mathe- 
matics. To start with, you might prefer to use a chess board la- 
beled А to H from left to right and from 1 to 8 up. You are asked to 
move a KNIGHT from one random location to another. The 
KNIGHT moves in combinations of 1 across and 2 up, or 2 across 
and 1 up, and so on. When prompted, you enter your move in the 
format: enter letter, enter number. Your move is then checked for 
validity. If it is not valid, you are asked to repeat the move. The 
moves are counted and the game is to reach your goal in the least 
number of moves. 

To quit, press BREAK after you successfully reach your goal 
or pull the plug if you are fed up! 

If you have a T/S 1500 or T/S 2000, you should delete line 10, 
which is not needed. You will notice that lines 15, 25 and 50 to 80 
automatically take care of the different coding of the character set. 
Make sure you are in capital letter mode when you run this pro- 
gram. 
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"Loose" Change (1K) 


1 SLOW 
5 RAND 
10 ТЕТ C=1 
29 ТЕТ F=INT (12XRND) +CODE "A" 
39 CLS 
40 PRINT "OF 12 DIMES ONE WEIG 
HS LESS THANTHE REST.FIND THE LI 
GHT COIN BY WEIGHING 4 COINS AGA 
INST 4.ENTERCOIN LETTERS A,B,... 
¿E 
50 ТЕТ I=1 
69 ТЕТ Мей 
70 IF INKEY$="" THEN GOTO 79 
80 ТЕ INKEY$=CHR$ Е THEN ТЕТ W 
=1 
99 PRINT INKEY$; 
95 PAUSE 10 
100 LET I=I+1 
110 IF І<9 THEN GOTO 65 
115 CLS 
120 IF W=1 THEN PRINT "UNEQUAL" 
139 IF Не THEN PRINT "EQUAL" 
140 PRINT "GIVE UP? ENTER Y OR 
№" 
150 ТМРОТ A$ 
160 ТЕ A$="N" THEN GOTO 219 
170 IF A$="Y" THEN PRINT C;" MO 
VES. ENTER ANSWER" 
180 INPUT B$ 
190 IF CODE B$=F THEN PRINT "RI 
GHT" 
200 IF CODE B$< >F THEN PRINT "С 
OIN IS ";CHR$ F 
205 GOTO 240 
210 LET C=C+1 
220 GOTO 30 
240 PAUSE 200 
250 GOTO 10 


Loose Change 97 


NOTE: 1. This program does пої check for correct entry of data. If 
you have 2K available, just add the line 


75 IF INKEY$ < "A" OR INKEY$> "L" 
THEN GOTO 78 


which will ignore any keystrokes that are not A,B,C,D,E,F,.G,H,l,J,K 
or L. 

2. In line 70, "" are two quotes which define an empty string. 
This statement waits for you to press a key. 

3. Use capital letter mode on the T/S 1500 and T/S 2000 
when you run this program. 


“Loose” Change 


This is a game of strategy and skill. Someone has been making 
counterfeit dimes. “Why bother?,” you might ask. That is not the 
question we are concerned with. The illegal dime does not weigh 
the same as the good dimes. In the program it is said to be light, 
but all that is necessary is that it be different. You have 12 coins; 
by weighing four coins against four coins you must determine 
which coin is the соищейей in the fewest number of moves. The 
coins are represented by the letters A,B,...,L. When prompted 
you type in the eight letters representing the eight coins you wish 
to weigh. (The program makes your keyboard act like a typewriter.) 
The first four are on one side of the scales, the last four on the 
other side. You will be told if they are equal, or unequal. 

When you have it figured out, enter Y to the prompt 


GIVE UP? ENTER Y OR N 


To quit, press BREAK when prompted to enter the eight let- 
ters. 

If you are given the additional information of which way the 
scales tip, it is possible to design a scheme that requires no more 
than three weighings and you can find the соищейей dime and 
you will also know if it is heavy or light. Can you design such a 
scheme? 

If you have a T/S 1500 or T/S 2000, the lines 1 and 95 should 
be deleted. Other changes are 


65 IF INKEY$ < >"" THEN GO TO 65 
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The line 65 should, in fact, be included in the 1K version but 
there was not enough memory. This statement waits for you to 
stop pressing a key. Without this statement, there is the chance 
that you will have multiple entry of some key strokes. If you are 
quick, you should not experience any difficulty. How quick are 
you? 
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“Monkey” Puzzle (1K) 


10 RAND 

20 FOR A=3 TO 8 

30 ТЕТ B=A-1-INT ((A—1)*RND) 

40 PRINT A;" MEN COLLECT А PIL 
E OF COCONUTS THEY INTEND TO SHA 
RE. WHILE THE OTHERS SLEEP, EACH 
MAN IN TURN DIVIDES THE PILE A 
ND HAS ";B;" LEFT OVER WHICH HE 
GIVES TO A MONKEY HE HIDES HIS 5 
HARE.NEXT MORNING THEY SHARE THE 
NUTS, GIVING THE MONKEY ";B;".H 
OW MANY DID THEY HAVE AT THE STA 
RI TU 

20 INPUT C 

60 LET B=INT (A¥*(A+1) - ВК(А - 1) 
) 

78 IF С< >B THEN PRINT "ANSWER 
= "B 

80 PAUSE 200 

92 CLS 

100 NEXT A 
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“Monkey” Puzzle 


This is a very tricky puzzle. The program supplies all the informa- 
tion necessary. Progressively more difficult problems are posed. 
The correct answer is supplied after each response. Line 60 pro- 
vides a formula for the solution of the problems, but you are sup- 
posed to work out the problems on your own. 

To quit, enter Q in response to the prompt. 

You may wonder how | arrived at the solution. | used an old 
mathematical trick of “borrowing” some hypothetical coconuts at 
the beginning to make the arithmetic work out exactly without any 
remainders, and then returned the “borrowed” coconuts after the 
final division was made. 

To understand this process, suppose there are 3 men, and 
they give one coconut to the monkey each time. That is, if X is the 
number of coconuts to start with, after X has been divided by 3, 
there is one left over, then X + 2 will be exactly divisible by 3 with 
none left over. So we borrow 2 to make the stack X + 2. Now, 
after X + 2 has been divided into 3 equal piles, each pile contains 
one more coconut than it should. So the first man, A, gives his 
extra one to the monkey, then hides his correct amount. The re- 
maining two stacks will still contain 2 more coconuts than they are 
supposed to. This means that the next division by 3 will work out 
with none remaining. This time B gives his extra one to the mon- 
key. And so on. Every time the division by 3 works out with no 
remainder. In the last division, each man has an extra coconut. А 
gives his to the monkey, B and C return one each of the “bor- 
rowed” coconuts. All the conditions have been met. So X + 2 is 
divisible by 3 a total of 4 times. So X + 2 = constant * 81. The 
constant can be 1, 2,.... Say it is 1, then X + 2 = 81 or = 
79. 

I leave you to work out the general case in line 60. 

If you wish to see how your answers work out, and you have 
2K memory, you might like to try the 2K version given below. 
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“Monkey” Puzzle (2K) 


10 RAND 
2) FOR A=3 TO 8 
36 ТЕТ B=A-1-INT ((A-1)*RND) 
40 PRINT А;" MEN COLLECT A PIL 
E OF COCONUTS THEY INTEND TO SHA 
RE. WHILE THE OTHERS SLEEP, EACH 
MAN IN TURN DIVIDES THE PILE A 
ND HAS ";В;" LEFT OVER WHICH НЕ 
GIVES TO A MONKEY HE HIDES HIS S 
HARE.NEXT MORNING THEY SHARE THE 
NUTS, GIVING THE MONKEY ";В;".Н 
OW MANY DID THEY HAVE AT THE STA 
RT ?" 
50 INPUT C 
6) LET B2 INT (AXX*(A- 1) — BX(A— 1) 
) 
65 LET Z2 INT (C/B) -C/B 
70 IF Z< >Ø THEN GOTO 119 
75 IF 7-0 THEN PRINT "CORRECT. 
NOW TRY ANOTHER ONE." 
80 PAUSE 200 
90 CLS 
100 МЕХТ А 
110 FOR Т=1 TO A+1 
129 LET S=INT (C/A) 
130 PRINT "DIVISION ";I;" IS "; 
$;" MONKEY GETS !;C—AXS 
149 ТЕТ C=(A-1)*S 
150 NEXT I 
160 PRINT "YOUR ANSWER IS WRONG 
THE CORRECT ANSWER IS ";B 
165 PRINT "ENTER CONT TO CONTIN 


UE" 
170 LET А-А-1 
175 5ТОР 
180 GOTO 90 


Now уои сап study how the division would take расе with 
your answer, if it is incorrect. The program will not increase the 
number of men sharing the coconuts until you give a correct an- 
swer. 


Monkey Puzzle 63 


You will find this small addition extremely useful in studying 
the pattern of the distribution of the coconuts, especially if you 
have been making arithmetic mistakes when trying to work out 
your answer. 





66 Brain Games for Kids and Adults 


“Nim” (1К) 


20 LET C=INT (19*RND) 
30 LET B=C+INT (19*RND) 
40 LET A=B+INT (19*RND) 
45 PAUSE 200 
58 CLS 
60 PRINT А;ТАВ 3;B;TAB 6;C 
70 PRINT "U MOVE" 
80 INPUT A 
90 INPUT B 
100 INPUT С 
110 ТЕ А+В+С=1 ТНЕМ GOTO 399 
120 ТЕ Вей ТНЕМ GOTO 329 
130 IF C=@ THEN GOTO 180 
140 ТЕ A=B THEN LET Сей 
150 ТЕ B=C AND C=1 THEN GOTO 24 
0 
155 IF B=C AND C< >1 THEN LET A= 
0 
160 IF А AND С ТНЕМ GOTO 230 
170 GOTO 50 
180 ТЕ А-В ТНЕМ GOTO 210 
190 ТЕТ B=B-1 
200 GOTO 50 
210 IF B=1 OR A=1 THEN GOTO 320 
215 LET A=B 
220 GOTO 50 
230 IF A+B+C-6 THEN GOTO 269 
249 LET A=A-1 
250 GOTO 59 
260 LET S=B+C 
270 ТЕ А-6--5 AND S>2 AND S<6 TH 
EN LET A=6-5S 
280 IF A+B+C=6 THEN GOTO 50 
290 GOTO 249 
300 PRINT "U WIN" 
310 GOTO 29 
320 PRINT "І WIN" 
330 GOTO 29 
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° 21 


“NIM 


NIM is an ancient game for two players. Counters are arranged in 
stacks between the two players. There can be any number of 
stacks and any number of counters in each stack. When it is your 
turn, you may take just one counter or all the counters in just one 
stack, or any number of counters between these extremes. The 
aim of the game is to force your opponent to take the last counter, 
when all the stacks are empty, except the one that has only one 
counter in it. 

There is a winning strategy for the player who goes first. In 
this simple version of NIM, the program always lets you start. 
There are only three stacks of counters. The numbers in each 
stack are displayed in decreasing order of magnitude. You are 
prompted to make your move with the message “U MOVE.” You 
enter the three nurnbers of counters remaining in each stack after 
your move, one at a time, in decreasing order The program will 
make dumb moves if you do not enter the numbers in decreasing 
order. 

This program is meant to provide you with a challenging 
game, but not a perfect game, so you can beat your computer! It is 
easy to cheat because your move is not checked. Your input can 
therefore be used to study the response of the computer to any set 
up. 

There are two winning strategies that the program does not 
check. It may not take you long to find them. On the other hand 


To quit, enter Q when prompted to make your move. | think 
this is the most enjoyable game in this book. | hope you like it, too. 

Since | have not come across a program that plays a perfect 
game of NIM, І decided to try to write опе. | was not able to make 
a 2K version that was perfect, so | give a listing below for those of 
you with a 16K memory pack or a T/S 1500 or T/S 2000. However, 
a law of computing is that there is no such thing as a perfect 
program. All | can say is that this program seems to me to play а 
perfect game. If you have a T/S 2000 you might like to add sound 
effects and color. | have kept the listing as simple as possible since 
it is quite long. 

If you enter this program you will appreciate why | have tried 
to keep all the programs in this book as short as possible. If your 
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computer gives you glitches occasionally, | suggest you save your 
listing every so often as you enter it, in order that you do not lose 
all your work because of a power surge. 


Nim 


“Nim” (16K) 


5 RAND 
10 DIM А(9) 
20 DIM В$(9,4) 
25 PRINT "DO YOU WANT THE FIRS 
T MOVE?INPUT Y OR №" 
20 INPUT M$ 
35 PRINT "INPUT NUMBER OF STAC 
KS FROM 3 TO 9" 
4g INPUT S 
50 IF S<3 OR S>9 THEN GOTO 35 
60 PRINT "DO YOU WANT TO CHOOS 
E THE NUMBER OF COUNTERS (UP TO 
15 ) IN EACH STACK? INPUT Y OR N 
"n 
78 INPUT S$ 
89 FOR Т=1 TO S 
90 LET A(I) =INT (15*RND) +1 
100 PRINT "STACK ";1;" = и; 
110 IF S$="Y" THEN INPUT A(I) 
115 IF А(І)« Й OR A(I) >15 THEN G 
OTO 190 
120 PRINT А(Т) 
130 NEXT I 
149 ТЕ M$="N" THEN GOTO 191 
150 PRINT AT 18,8; "INPUT STACK 
NUMBER" 
168 INPUT MS 
165 IF MS«1 OR MS»S THEN GOTO 1 
59 
166 IF A(MS) =Ø THEN GOTO 150 
178 PRINT "INPUT THE NUMBER OF 
COUNTERS YOU WISH TO REMOVE! 
175 INPUT MM 
188 IF А(М5)« ММ OR MM<1 THEN GO 
TO 179 
185 LET A(MS) =A(MS) — MM 
190 REM CONVERT NUMBERS TO BINA 
RY 
191 PRINT "I AM THINKING" 
195 LET 5$ = "0000" 
200 FOR J=1 TO $ 
295 LET B$(J) = "9000" 


69 
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210 LET T=A(J) 

220 LET I=4 

239 LET C=A(J) —2XINT (А(7)/2) 
249 LET A(J) SINT (A(J)/2) 

250 LET B$(J,I)=STR$ C 

255 LET S$(I) =STR$ (VAL S$(I)+C 


268 LET I=I-1 

270 IF I» THEN GOTO 239 

28) LET A(J) 2T 

300 NEXT J 

305 REM COMPUTERS MOVE 

319 IF VAL S$« «Й THEN GO TO 389 
320 IF VAL S$=1 THEN PRINT "YOU 
WIN" 

339 IF VAL S$=1 THEN GO TO 25 
335 LET 0-0 

336 ТЕТ R= 

34) ТЕТ РЕЙ 

341 LET W=9 

344 FOR J=1 TO S 

345 IF A(J)=1 THEN LET Q=J 

346 IF A(J)=1 THEN LET W=W+1 
347 IF A(J)>Q THEN LET P=P+1 
348 IF A(J)>1 THEN LET R=J 

349 NEXT J 

350 IF Р=1 THEN LET А(В) «1 

355 IF P=2 AND W<>1 THEN GOTO 4 
25 

369 IF P=2 AND W=1 THEN LET А(В 
)=9 

270 IF P>2 AND P=W+1 ТНЕМ СОТО 
420 

375 IF P>2 THEN GOTO 425 

380 CLS 

385 LET 7-0 

390 FOR Т=1 TO S 

400 PRINT "STACK ";1;" = ";A(T) 
405 LET Z2Z-A(I) 

410 NEXT I 

415 IF Z=1 THEN PRINT "I WIN" 
416 IF Z< =1 THEN GOTO 25 

417 GOTO 150 

429 IF P—2xINT (P/2)=@ THEN LET 


A(R) =9 

421 IF P-2*INT (P/2) < >Ø THEN LE 
T A(R) 21 

422 GOTO 389 

425 LET рей 

430 FOR I=1 TO 4 

449 IF VAL S$(I) —2*INT (VAL 5%( 

1)/2)>® THEN LET р=2**(4-Т) 

445 IF D> THEN GOTO 479 

450 NEXT I 

460 IF Q THEN LET A(Q) =A(Q) — 1 

462 IF NOT Q AND R THEN LET A(R 

) =A(R) -1 

465 GOTO 388 

470 FOR I=1 TO S 

472 ТЕ A(I)=D THEN GOTO 599 

474 NEXT 1 

475 FOR I=1 TO S 

489 IF А(І) > =D THEN GOTO 500 

490 NEXT I 

500 LET SUB=P 

519 FOR 7-1 TO 4 

529 IF VAL S$(J) —2*INT (VAL S$( 

J)/2) 29 THEN GOTO 579 

539 IF VAL B$(I,J) —2XINT (VAL В 

$(I,J)/2) =@ THEN GOTO 560 

549 LET SUB=SUB—2**(4—J) 

559 GOTO 579 

569 LET SUB = SUB + 2** (4 — J) 

570 NEXT J 

58) IF SUB» =Ø THEN GOTO 499 

585 LET А(І) =А(Т) + SUB 

590 GOTO 389 

NOTE: On a Т/5 1500 or Т/$ 2000, the commands GOTO and 
GOSUB have spaces put in them so that the above listing will look 
slightly different. For instance, in place of GOTO you will obtain 
GO TO, and the rest of the line will be shifted one space to the 
right. 

A typical run for this program would be as follows. 


DO YOU WANT THE FIRST MOVE?INPUT 
Y OR N 


Suppose you enter N, then you are prompted with 
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INPUT NUMBER OF STACKS FROM 3 TO 
9 


Зиррозе you enter 6, then you are asked the question 


DO YOU WANT TO CHOOSE THE NUMBER 
OF COUNTERS (UP TO 15) IN EACH 
STACK? INPUT Y OR N 


Suppose you enter Y, then you will be prompted with 
STACK 1 = 


Suppose you enter a number between 0 and 15 inclusive, say 
9, then you will be prompted with 


STACK 1 = 9 
STACK 2 = 


and so on, until all 6 stacks are determined. If you make an invalid 
entry, then the prompt will be repeated. 

The computer will then display the stacks after it has made its 
move and will give you the prompt 


INPUT STACK NUMBER 


After you enter your choice of stack number you are then 
prompted by 


INPUT THE NUMBER OF COUNTERS YOU 
WISH TO REMOVE 


If you enter an invalid number, these prompts are repeated. 

Finally, a message telling you whether you have won or lost 
will be displayed. The program then returns to the initial prompt. 

I made an arbitrary decision to have a maximum of 9 stacks 
and up to 15 counters in each stack. It is not difficult to change 
these parameters. However, | feel that these choices are adequate 
to provide you with a very challenging game. 
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“Obscure” Aqes (1К) 


19 RAND 

20 LET Аж INT (19*RND) +5 

20 LET B=A+INT (29XRND) 

40 LET C-B- INT (2Q*RND) 

50 PRINT "RON IS ";С-В;" YEARS 
OLDER THAN JIM" 

55 PRINT "RON IS ";С-А;" YEARS 
OLDER THAN РАТ" 

60 PRINT "THEIR COMBINED AGE I 
S ";A+B+C 

65 PRINT "ENTER PATS,JIMS AND 
RONS AGES" 

7% INPUT D 

89 INPUT E 

99 INPUT Е 

100 ТЕ D=A AND E=B AND F=C THEN 
GOTO 139 

112 PRINT "WRONG IT IS Пи," 
В;",";О 

120 GOTO 140 

136 PRINT "RIGHT" 

140 PAUSE 200 

150 PRINT "AGAIN? У OR N" 

160 ТМРОТ А$ 

170 IF A$="N" THEN STOP 

180 CLS 

190 GOTO 20 
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“Obscure” Ages 


The program supplies all the information and prompts necessary 
to play this game. Information is given regarding RONS, JIMS and 
PATS ages. You have to work out and enter their ages one after 
the other in the requested order. A prompt for quitting is given. 

The mathematics behind this game is called linear algebra. In 
this case, you have to solve three linear equations simultaneously. 
A linear equation in three variables, R, J, and P looks like 


2В + 3J — 4P = 6 


Тре information given to you in the дате can Бе written down as 
three such equations and you try to find the values of R, J and P 
that satisfy all three equations. 

One of the major uses of computers is to solve very large 
systems of linear equations that may contain thousands of equa- 
tions. The equations are stored in matrix form and many methods 
have been designed to solve these large systems economically 
and accurately. Numerous books have been written about matrix 
algebra and linear systems and a lot of research is being done 
right now on these problems. By the term matrix, we mean an 
array. For example, the linear equations X + Y + Z =4, 2X — Y 
= 3, and 2Y — Z =5 can be represented by the array 


1 1 1 4 
2 _1 Q 3 
0 2 _1 5 


Here we drop the X, Y, Z and =. The columns keep track of which 
symbol belongs to which number. In order to solve this system, we 
first reduce it to an equivalent system that has the same solution, 
but is simpler to solve. We subtract twice the numbers in the first 
row from the corresponding numbers in the second row so that the 
number 2 in the first column becomes 0. Thus the equivalent 
system is 


1 1 1 a 
0 -3 _ 2 _ 5 
0 2 -1 5 


We пом ааа the numbers т the third row to the corresponding 
numbers in the second row to get the equivalent system 
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1 1 1 4 

0 _1 -3 0 

0 2 -1 5 
Now we add twice the numbers in the second row to the corres- 
ponding numbers in the third row, which reduces the number 2 in 
the third row, second column to 0. The equivalent system is 


1 1 1 4 
0 _1 -3 0 
0 0 - 7 5 


Now ме solve this system, which is called а row reduced system, 
where the matrix of coefficients is said to be triangular. The method 
of solution is called back-substitution. We start with the third row, 
which stands for 


– 72 = 5 
The solution is easy. К is Z = — 5/7. The second last row stands for 
— Y —3Z=0 or Y= — 32 = 15/7 
Finally, the first row stands for 
X+Y+Z=4 
but now we know what Y and Z are, so 
X=4-Y-Z=4- 15/7 + 5/7 = 18/7 
This process is called Gauss Elimination. 


AxBxC=—4 


A*B+A*B+B*C 
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“Product” and Sums (1K) 


10 RAND 

20 LET A=INT (19XRND) -9 

30 ТЕТ B=INT (19XRND) -9 

40 LET C=INT (19*RND) -9 

50 IF А> =В OR A» =C OR B» =С THE 
№ GOTO 20 

60 IF NOT A OR NOT B OR NOT C 
THEN GOTO 20 

70 CLS 

89 PRINT "THE PRODUCT A*BXC = 
и; AXBXC 

99 PRINT "THE SUM A%B + АХС + ВХС 
= "¡AXB+AXC+BXC 

100 PRINT "THE SUM A+B+C =";A+ 
B+C 

110 PRINT "ENTER А,В,С IN INCRE 
ASING ORDER! 

120 INPUT P 


139 IF A< >Р THEN GOTO 200 
149 PRINT "A IS RIGHT" 

150 INPUT Q 

160 IF B< >Q THEN GOTO 200 
170 PRINT "В IS RIGHT!" 

180 INPUT В 

190 ТЕ C=R ТНЕМ GOTO 230 
200 PRINT "WRONG" 

210 PAUSE 200 

220 GOTO 70 

230 PRINT "СОВВЕСТ" 

249 STOP 
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“Product” and Sums 


This is another game where you have to find three unknowns, 
given certain facts. However, it is harder than OBSCURE AGES 
because in this case, you have to solve a system of nonlinear 
equations. 

Prompts provide all the instructions necessary. You are asked 
to enter your answers for A, B and C in increasing order. Suppose 
your answer is A= —5, B= - 1 and C = 6. You would first enter А. 
The computer checks your answer. If it is correct you then enter B 
and so on. If any one of your answers is wrong, you will be told so, 
and the problem will again be presented to you. The program 
stops when you have solved the problem. If you wish to quit at any 
time, enter Q in response to a prompt. The solutions are integers 
in the range - 9 to 9 but пої 0. 

The system of nonlinear equations can be written as 


(1А + В+ С = N 
(2) АхВ +А*С + В*С = М 
(3) AXBxC = P 
where М,М апа Р are given numbers апа you must solve these 
equations to find the values of А,В апа С. 
You multiply equation (2) by А to get 
A? x (B+ С) + (АхВхС) = AxM 
and use equation (1) and (3) to get 
A? * (N-A) + P = АМ 
which is a single cubic (degree three) equation in A. By trial and 
error you should be able to solve this equation for A. You will then 
know the sum, В + C and the product, B*C. Suppose we define 
(IB+C=S 
(5) B xC = T 
where S and T are known. Multiply equation (4) by B and you get 
В? + BxC = BxS 
Substituting equation (5) gives a quadratic equation in B, 
B + T = Вх. 
When you have found the value of B from this equation you can 
then find the value of C from the equation (1). 
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A word of caution. There will be more than one answer for B 
but there will be only one solution of the three equations satisfying 
the condition that the solutions must all lie in the interval — 9 to 9. 
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“Quest” (1К) 


20 RAND 
30 LET C2 
40 LET A=Q 
50 ТЕТ Вей 
60 LET T=INT (199*RND) - 99 
70 LET R=INT (199*RND) - 99 
80 IF T=A AND R=B THEN GOTO 49 
90 LET D=ABS (A—T)+ABS (B-R) 
100 IF ре й THEN GOTO 180 
110 CLS 
120 PRINT "YOU ARE AT ";А;",";В 
;" THE TREASURE" 
139 PRINT "IS ";D;" FROM YOU.NE 
W COORDINATES?" 
140 INPUT A 
150 INPUT В 
160 ТЕТ C=C+1 
170 GOTO 90 
180 PRINT "YOU FOUND IT IN ";C; 
" MOVES" 
190 IF C<4 THEN PRINT "YOU АВЕ 
A GENIUS' 
200 IF C» =4 AND C<12 THEN PRINT 
"YOU ARE СІЖУЕВ" 
219 IF С» =12 ТНЕМ PRINT "ТОО SL 
OW PIRATES GOT IT" 
220 PAUSE 500 
239 GOTO 39 
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“Qu est” 


You start at the center (0,0) of a square island with sides of length 
199. Somewhere in the square is buried the pirates’ treasure. The 
coordinates of the treasure are T and R, which will be integers 
from —99 to 99. The difference between your coordinates (A,B) 
and the location of the treasure (T,R) is given to you at each turn 
and you are asked to supply new coordinates. You enter your new 
coordinates A and B one at a time. They can be any integers. The 
distance is different from the Euclidean distance used in DETONA- 
TION. The distance from (A,B) to (T,R) is defined as 


D = ABS(A-T) + ABS(B-R) 


A count of your moves is kept and if you are too slow, the 
pirates beat you to the treasure. This program is fun to run and it is 
not difficult to beat the pirates. 

To quit at any time, enter Q in response to a prompt. 

The mathematical problem behind this game is to find the 
points of intersection of squares. This is because when distance is 
measured in the fashion described above, for a given distance D, 
the possible location of the point (ТВ) lies on a square surrounding 
your location (A,B). 


(T,R) CF = ABS (А-Т) 
FE = ABS (B—R) 
so D=CF+FE 
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When you move to a new location, then a new distance is 
computed and this defines a second square. 


The two squares usually intersect at two points, (why not no 
points?). However, in rare instances they may touch at only one 
point, or they may coincide along a portion of a common boundary 
so that there are an infinite number of points in common. In the 
latter case, you have to shift to a new location and waste a turn. 

You are lucky if there is only one point in common because 
that is the solution. For the usual case of two points in common, 
you only have to check one point. You have a 50% chance of 
being right. In any case, you are guaranteed to find the solution in 
three attempts (unless you were unlucky and had to waste a turn). 

So far l| have only given you a geometrical interpretation of the 
solution to this problem. How do you go about producing num- 
bers? 

| suggest that instead of using equations as we have done in 
other cases, this time you should use graph paper. Locate an 
origin in the middle of your paper, draw a horizontal line and a 
vertical line through your origin. These are your coordinate axes. 
Now locate the point (A,B) on your map (it is the origin to start with) 
and draw the square that is a distance D from the point (A,B). You 
do this by locating the corners at (A + D,B), (A — D,B), (A,B + D) and 
(А,В- D). Now join the corners by drawing straight lines and you 
will have drawn the square. The treasure lies somewhere on this 
square. Now shift your coordinates to another point and draw the 
second square with the value of D given to you by the computer. 
From your graph, estimate the coordinates of the points of inter- 
section of the squares and try entering them. After some trial and 
error, you will become more proficient at drawing graphs and you 
will easily be able to find the treasure before the pirates get to it. 
(They do not have any graph paper!) 
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“Rally” (1K) 


19 RAND 

20 LET R=INT (19XRND) +1 

39 LET C=R+INT (29XRND) +1 

49 LET I=INT (8@*RND) +29 

59 LET J=INT (89*RND) +29 

60 LET T=I+J 

79 LET D=RXI+C#J 

80 PRINT "YOU САМ RUN AT ";R;" 
M/SEC." 

82 PRINT "CYCLE AT ";0;" M/SEC 
"n 

84 PRINT "ENTER RUN AND CYCLE 
TIMES TO" 

86 PRINT "COVER ";D;" M IN EXA 
CTLY ";T;" SEC." 

9g INPUT A 

100 INPUT B 

119 IF A=I AND B=J THEN PRINT " 
RIGHT" 

120 IF A<>I OR B< >J THEN PRINT 
"WRONG IT IS ";1;",";7 

130 PRINT "AGAIN? Y OR N" 

140 INPUT A$ 

159 IF A$="N" THEN STOP 

169 CLS 

170 GOTO 20 
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“Rally” 


This is a simple game where you are asked to cover a given 
distance in an exact time. You may run or ride a bicycle. The 
speeds for both modes of travel are given to you. 

Prompts give all the instructions necessary to run this game. 

This is a quick and easy game to play and is designed to 
shape up your ability to do mental arithmetic. Once again it in- 
volves the solution of linear equations, only this time you have two 
equations in two unknowns. If the run time is | seconds and the 
cycle time is J seconds, then you are asked to find | and J, given 
that 

(N)I + J = 7 

(2) ВЧ + C*J = D 
where T is the total time, D is the distance and R is your running 
speed, while C is your cycling speed. 

The formal solution process is called Gauss Elimination, and it 
may take longer than your mental arithmetic. You subtract R times 
equation (1) from equation (2) which eliminates the unknown | and 
gives 

(С-В) = О-Н*Т 
Thus J = (D — R*T)(C — R) and substitution of this value of J in 
equation (1) gives the value of |. 


ЭН 
"НА | 
"RAS 
>RASF 
PRASFM 
>RASFME 
PRASFMEG 


ЭВАФЕМЕСО 
JRASFMEGGB 





“Simon” 
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“Simon” (1K) 


5 DIM B$(59) 
10 RAND 
20 PRINT "NUMBERS OR LETTERS? 
ENTER N OR L" 
39 INPUT 4$ 
40 ТЕТ I=1 
5g CLS 
69 IF A$="N" THEN LET B$(I) =ST 
R$ (19*RND) 
79 IF A$="L" THEN LET B$(I) «СН 
R$ (26XRND+CODE "А") 
80 FOR J=1 TO I 
99 PRINT B$(J); 
100 PAUSE 50 
110 NEXT J 
120 CLS 
130 PRINT "ENTER SEQUENCE" 
140 INPUT C$ 
150 IF C$=B$(1 TO I) THEN GOTO 
170 
160 PRINT "WRONG IT IS ";B$(1 T 
O 1) 
165 STOP ; 
170 PRINT "RIGHT ОМ" 
180 PAUSE 50 
190 ТЕТ I=I+1 
200 СОТО 50 


NOTE: Use capital letter mode on the T/S 1500 and T/S 2000 
when you run this program. 
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“Simon” 


We have all played “Simon Says” or “Follow the Leader” at some 
time or other. This game provides two versions of Follow the 
Leader. You have your choice between numbers or letters. Starting 
with a single character and increasing the sequence by one char- 
acter each time, a sequence is displayed one character after an- 
other. You are then asked to enter the same sequence. If you are 
correct, the same sequence is repeated with an extra character 
tacked on to the end. If you are wrong, the correct sequence is 
displayed and the program stops. 

This is a very demanding game and requires tremendous 
concentration. | designed the program to limit the sequence to 50 
characters. If that is not enough for you, just change the dimension 
of B$ defined in line 5. 
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“Tr ek” (1 K) 


5 RAND 
10 CLS 
15 ТЕТЕ 
20 LET A 
30 ТЕТ В 
40 LET C 
50 LET Н= INT (18QXRND) 

O=INT (19QX*RND) 
M=INT (199*RND) 
D=ABS (A—H)+ABS (B-0) +A 


69 LET 

70 LET 

80 LET 
BS (C—M) 

90 IF Рай THEN GOTO 160 

100 CLS 

110 PRINT "YOUR SPACESHIP IS АТ 

";А;",";В;",";б;". SPOK GIVES T 
HE DIFFERENCE FROM YOUR COORDIN 
ATES AND HOME BASE AS ";р;" EN 
TER NEW WARP COORDINATES" 

120 INPUT A 

130 INPUT B 

140 INPUT C 

145 LET E=E+1 

150 GOTO 8g 

160 PRINT "YOU ARE HOME IN ";Е; 
" MOVES" 

170 IF E<4 THEN PRINT "YOU ARE 
A GENIUS" 

175 IF E>=4 AND E<12 THEN PRINT 

"YOU ARE CLEVER! 

180 IF E>=12 THEN PRINT "GOOD T 
RY AGAIN" 

190 PAUSE 500 

200 GOTO 10 
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“Tr ek” 


This is a similar game to the earlier game of “QUEST”. You are 
the captain of a spaceship lost in space. You only know the dis- 
tance D = ABS(A-H) + ABS(B-O) + ABS(C-M) between 
your coordinates (А,В,С) and HOME BASE (H,O,M). You are 
asked to supply new coordinates for your jump through space 
each turn. The aim is to get to HOME BASE in the fewest number 
of turns. If you can do it in three or less moves, you are a GE- 
NIUS. Good luck! 

To quit at any time, enter @ in response to a prompt for new 
coordinates. 

The mathematical problem behind this game is to find the 
point of intersection of three planes. A plane in three dimensional 
space is a linear equation in three variables, such as 


2X + ЗҮ – 42 = 5 

You always start at the point (0,0,0), and the ship is located at 
an unknown point (H,O,M). All the coordinates are non-negative, 
so the first distance (0,) supplied to you gives the equation 

H + O + M =D, 

If you shift to a point, say (99,0,0), then the new distance (D,) 
supplied to you by the computer gives you the equation 

(99—H) + O + M = D, 

Similarly, a shift to (0,99,0) gives you a third distance (D,) and 
a third linear equation 

H + (99—O) + M = D, 

The solution of these three equations guarantees you will get 
home in three moves, but don't tell your friends how you did it! 

If you are having trouble solving these equations, read on. 
You should subtract the first equation from the second one to get 

(99—H) — H = D, - D, 
so that 99 — 2H = D, - D.. This means that 

2H = 99 + D, - D; or H = (99+D, – D,)/2 
and H should be an integer, otherwise you have made a mistake in 
your arithmetic. 


In exactly the same way, when you subtract the first equation 
from the third, you will get 


96 Brain Games for Kids and Adults 


О = (99 +D, - Dj/2 


Then, from the first equation, you can find М =D, — H - O. 
If you would like to practice Gauss Elimination on the matrix 
representing the three equations, then you start with the matrix 


1 1 1 D. 
-1 1 1 D, — 99 
1 — 1 1 D, - 99 
and add the first row to the second row to get 
1 1 1 D. 
0 2 2 D, + D, — 99 
1 -1 1 D, — 99 
then subtract the first row from the third row to get 
1 1 1 D, 
0 2 2 D, + D, — 99 


0 -2 0 D, — D, — 99 

Now you add the second row to the third row to get 

1 1 1 D, 

0 2 2 D, + D, — 99 

0 0 2 D, + D, - 198 
This is the equivalent system of equations that you can solve by 
back substitution. The last equation states that 

2M = D, + D, - 198 or M = (D, + 0.)/2 — 99 

The second last equation gives you 

О = (0, + D, - 99/2 - М. 

The first equation gives H = D, -O —M. 

In this case, the formal process of Gauss Elimination takes 
longer than the elimination process described earlier. The point is, 
Gauss Elimination can be programmed easily. lt does not pay 


attention to any particular short cuts that a system of equations 
may have, but plods a well defined path to the ultimate goal. 
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“U-Boat” (1К) 


10 RAND 

20 ТЕТ S=INT (199*RND) - 99 

20 LET U=INT (199*RND) — 99 

40 ТЕТ B=INT (99XRND) 

45 LET Сей 

50 ТЕТ X29 

60 ТЕТ Y= 

70 LET 7-0 

80 GOSUB 399 

90 IF S—X=Q@ THEN LET A=SCN (5- 
X)*99 

100 IF 5-Х<>0й THEN LET A=INT (A 
TN ((U—Y)/(S-—X))*189/PI) 

119 IF S-X« THEN LET А=А+180 
120 PRINT "U-BOAT BEARING ";А 

130 PRINT "RANGE ";R 

140 PRINT "ENTER COORDINATES X, 
Y AND 7" 

150 INPUT X 

160 INPUT У 

170 INPUT Z 

175 ТЕТ C=C+1 

180 CLS 

185 IF С=20 ТНЕМ GOTO 230 

190 GOSUB 200 

200 ТЕ R< >Ø THEN GOTO 79 

210 PRINT "GOT IT IN ";C;" MOVE 
sn 

220 STOP 

236 PRINT "SUB AT ";5;",";й;"," 
В)" GOT YOU" 

249 STOP 

300 LET R=SQR (ABS (S—X)**2 + ABS 

(U—Y)**2--ABS (В-7)%%2) 

319 RETURN 
NOTE: In line 100, PI is the function with the value of the number 


pi. 
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“U-Boat” 


You are in control of a subchaser. The detection devices, called 
SONAR, on your ship provide you with the range and bearing of 
the U-boat. Your job is to track down the U-boat in less than 20 
moves. This is similar to the game DETONATION; however, you 
have to use both the Cartesian coordinate system, (X,Y,Z) and the 
cylindrical polar coordinate system (В,А,2). 

The U-BOAT is located at the Cartesian coordinates (S,U,B). 
These are set up in lines 20 to 40 of the program. The S and U 
values are the coordinates in the X (or east) direction and the Y (or 
north) direction, and are integers randomly chosen from - 99 to 
99. The value of В is the depth, and is an integer from 0 to 98. 
Evidently, this U-BOAT cannot fly! 

Your coordinates initially are set up in lines 50 to 
70 to be Х=0,У 20 апа 2-0. Your sonar tells you the distance 
between you and the submarine. The distance is the Euclidean 
distance worked out in the subroutine in line 300, 


В = ЗОВ((5-ХУ + (Ч-У} + (B-2)) 

This is not the distance a crow flies, unless the submarine hap- 
pens to be on the surface. Rather, it is the distance a fish swims, 
to coin a phrase. The value of R is not an integer, and this makes 
the arithmetic more difficult. If you would prefer an integer, put INT 
in front of the SQR in line 300, but that could be misleading as you 
found in "DETONATION". 

The tricky piece of mathematics in this program is in the 
calculation of the bearing or direction of the submarine. Here, | use 
the usual polar coordinates, based on the east and north coordi- 
nates of your ship and the submarine. 

N (S, U) 


(X, Y) 5—Х Е 


Тре submarine is located at (S,U) and you are at (X,Y). The 
difference in the east direction is S — X while the difference in the 
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north direction is U — Y. The bearing, ог angle measured т de- 
grees in a counter clockwise direction from the east, is 
А = АТМ((О – Ү)/(5 – Х)). 

Since the ѕиртагіпе could Бе іп апу of the four quadrants 
relative to your position, this angle can be positive or negative. In 
lines 90 to 110, | take care of this, and the case when S = X, where 
the submarine 1$ either directly north or south of you. 

When you run this program, you will receive the prompts 


U-BOAT BEARING . . . 
RANGE . . . 
ENTER COORDINATES X,Y AND Z 


where . . . will be some number calculated for A and В. You enter 
your guess of X, then Y and finally the depth of Z. If you are not 
successful in locating the submarine, your subchaser will now be 
located at (X,Y,0). The coordinate Z is set to zero, since your 
subchaser remains on the surface, at least until you are hit by a 
torpedo! 

The mathematical way to solve this is to follow the method 
outlined in “DETONATION”. You look for the intersection of three 
spheres, centered, say, at (0,0,0), (+ 50,0,0), (0, + 50,0). The choice 
of the sign +50 or —50 is up to you, and depends on the initial 
bearing of the submarine, which will tell you in which quadrant the 
submarine is located. 

Suppose you try (50,0,0) and (0,50,0); then you will have to 
solve the equations 


S + U? + B° = Ri 
(S—50 + U + В? = Ri 
5° + (Ч-50} + B° = Rš 


where В,, В, and В, are the initial range and the ranges at (50,0,0) 
and (0,50,0), respectively. Solve these equations and you are guar- 
anteed to locate the submarine in 3 moves! 

The game ceases when you or the submarine is hit. To quit at 
any time, enter Q in response to a prompt for new coordinates. 
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“Verify” (1K) 


5 RAND 
19 LET C=1 
20 ТЕТ F=INT (1QXRND) 
39 CLS 
40 PRINT "YOU HAVE TEN GOLF ВА 
LLS. ONE 15 NOT THE SAME AS THE 
OTHERS. FINDTHE DEFECTIVE BALL B 
Y WEIGHING ANY NUMBER OF BALLS. 
" 
50 PRINT "ENTER BALL NUMBERS 0 
12. 9 
60 INPUT A$ 
70 FOR Т=1 TO LEN A$ 
75 IF VAL A$(I) =F THEN GOTO 19 
Й 
76 МЕХТ І 
89 PRINT "EQUAL" 
99 GOTO 119 
100 PRINT "UNEQUAL" 
105 PRINT 
110 PRINT "GIVE UP? TYPE Y OR N 
"n 
120 INPUT B$ 
125 PRINT 
120 IF Вф-"Ү" THEN PRINT "YOU Н 
AD ";C;" MOVES THE BALL = ";F 
135 LET C=C+1 
140 IF B$="N" THEN GOTO 39 
150 STOP 


Verify 103 


“Verify” 


This game 1$ similar to “LOOSE” CHANGE, but it is easier. You 
have 10 golf balls and a scale. One of the balls is defective as it 
does not weigh the same as the others. The balls are numbered 0, 
1,2,... 9. You may select any number of balls to compare their 
weight. You can even select an odd number because the com- 
puter has a spare good ball to make up the same number on each 
side of the scales. You are told if your selection is EQUAL or 
UNEQUAL. When you think you know which ball it is, answer YES 
to the prompt GIVE UP? The number of moves you took and the 
answer 1$ then displayed. The program will then stop. 

An excellent score is 3 or less. A good score is 4 or 5. Over 5 
and you need to practice a few times, or maybe you prefer to play 
with real golf balls on a real golf course! 

NOTE: Enter your selection of golf ball numbers in a string. For 
example, if you wish to compare 0, 1, 3, 7,8, you would enter 
01378. 

To quit at any time, enter Q in response to a prompt for ball 
numbers. 

As in “LOOSE” CHANGE, you can map out a logical proce- 
dure guaranteed to locate the ball in the fewest number of moves. 
There are many problems in mathematics and computer science 
where we program computers to do such sorting and selection 
based upon some criteria of selection. There are many applica- 
tions of such methods in industry and communications. 
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“Warp” ( 1 K) 


5 RAND 
10 CLS 
15 ТЕТЕ 
20 ТЕТ А 
30 ТЕТ В 
40 ТЕТ С 
45 LET P 

H 
0 
M 
б 


g 
g 
g 
2 
Ø 
4 


28 ТЕТ 
69 LET 


NT (19g*RND) 
INT (19QX*RND) 

70 LET M=INT (18QXRND) 

75 LET G=INT (100%ңмр) 

80 LET D=ABS (F-G)+ABS (А-Н) +A 
BS (B-O)+ABS (C—M) 

99 IF D=@ THEN GOTO 169 

100 CLS 

110 PRINT "YOUR SHUTTLE IS LOST 

IN A TIME" 

112 PRINT "WARP ";р;" FROM THE 
SHIP AT" 

114 PRINT А;",";В;",";С; ",";Е 

116 PRINT "ENTER NEW COORDINATE 
S" 

120 INPUT A 

130 INPUT B 

140 INPUT C 

142 INPUT F 

145 LET E=E+1 

150 GOTO 80 

160 PRINT 

165 PRINT "YOU ARE HOME IN ";E; 
m MOVES" 

170 IF E<4 THEN PRINT "YOU ARE 
A GENIUS" 

175 IF E» =4 and E« 12 THEN PRINT 
"YOU ARE CLEVER" 

180 IF E> =12 THEN PRINT "GOOD T 
ВУ AGAIN" 

190 PAUSE 500 

200 GOTO 19 
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“Warp” 

This is the most difficult of all the hide-and-seek type of games in 
this book. You are separated from your spaceship. You are in a 
shuttle lost in a time warp! Your instruments can give you only the 
total difference in your coordinates and those of the ship. There 
are four such coordinates, three spatial coordinates and one for 
time. You are prompted to enter new coordinates each move and 
you are given your new distance from the spaceship. You enter the 
coordinates one after the other. There is no limit to the number of 
moves, only a limit to your patience! 

To quit at any time, enter Q in response to the prompt for new 
coordinates. 

Using analytic geometry, the solution is found in four moves 
by finding the point of intersection of four hyperplanes. А hyper- 
plane in the space with coordinates X, Y, Z, T is represented by a 
linear equation such as 


2X + ЗҮ + 5Z +T =24 


| suggest that you go back to the game called TREK and 
master that first. The mathematical explanation there will help you. 
This game is very similar and you should be able to find four linear 
equations in the four unknowns. Thus you are guaranteed a solu- 
tion in four moves. If you do better than that, you should become a 
stock broker! 


“Xchange” 
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"Хспапає" (1K) 


40 RAND 

50 LET СОМ INT (151*RND) +29 

60 LET Z=INT (COW/19) 

65 CLS 

70 PRINT "HOW MANY OF ";7+1;": 
CATS,HENS,DOGS,ANDPIGS WORTH $1, 
3,5,10 DO YOU GET FOR А $";COW;" 
СОМ?" 

99 INPUT A$ 

100 CLS 

110 FOR Р=-1 TO 1 

120 FOR 9=-1 TO 1 

130 FOR В=-1 TO 1 

149 FOR S= —1 TO 1 

150 IF P+ 3*Q + 5*R + 10*S = СОМ — Z*19 
THEN GOTO 299 

160 NEXT S 

179 NEXT R 

180 NEXT Q 

199 NEXT P 

200 FOR X21 TO 4 

201 IF VAL A$(X)>Z+1 THEN GOTO 
219 

202 NEXT X 

295 IF VAL A$(1) +VAL АЗ(2)Ж3 + УА 
L A$(3)*5+VAL A$(4)*19=COW THEN 
PRINT "CORRECT" 

219 PRINT "MY ANSWER IS ";P+Z;Q 
+Z;R+Z;8 +Z 

215 INPUT Q 

229 GOTO 59 
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"Хспапає" 


You have а cow worth а given amount. The amount is chosen 
randomly. You are seeking a fair exchange for a number of cats, 
hens, dogs and pigs, which are each worth a certain given 
amount. There is only a limited quantity of each of the cats, hens, 
dogs and pigs. You are asked to determine how many of each you 
are willing to exchange for your cow. 

Your answer is checked, and the computer also gives you an 
answer. The two answers may not be the same, but nevertheless, 
they may both be correct. 

Note that your entry should be in a string, so that if you want 
2 cats, 3 hens, 3 dogs and 2 pigs, you would type in 2332. No 
individual number will ever exceed 9 so your entry will always 
contain four digits. 

A typical run would go as follows. The program begins with a 
message like 

HOW MANY OF 6: CATS,HENS,DOGS AND 

PIGS WORTH $1,3,5,1@ DO YOU GET FOR A 

$191 COW? 


You would then enter your answer in a string. Say you decide 
on 6 cats, 5 hens, 6 dogs and 5 pigs, then you would enter 6565. 

The computer checks your answer. If it is correct, the сот- 
puter will print the message CORRECT. 

In any case, the computer will give you an answer that is 
computed from the lines 110 to 190. Sometimes there is more 
than one correct answer. Lines 200 to 202 provide a check on your 
entries to make sure that you abide by the limitations set on the 
number of animals. However, if you experience “glitches” with 
your computer, which | think is caused by а saturation of the 1K 
memory, then you may delete these lines. In that case it is easy to 
cheat since there is no limit on the number of individual animals 
(say, cats) that you accept in trade. The statement 215 halts the 
program while you read the screen. To continue, enter any num- 
ber. 

To quit at any time, enter Q in response to a prompt for your 
answers. You could also enter STOP. 

The mathematical solution to this problem is based on the 
fact that combinations of the numbers 1, 3, 5 and 10 give you all 
the numbers from 1 to 19. For instance 7=10-3, 
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17=10+5+3-1. Each number is used at most once, either by 
adding or subtracting. So if a cow is worth $60, we divide 19 into 
60 to get 3 with a remainder of 3. So 3433 is the solution in the 
format required by this program. 

Here is a problem to think about: The face value of the indi- 
vidual pieces in a currency is chosen so that transactions can be 
made with relatively few individual pieces of money. Design a sys- 
tem of coins so that the values from 1$ to 99$ can be made with 
the fewest number of coins. 
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“Your” Number Is Up (1K) 


5 RAND 
6 LET Z=CODE "A" — 1g 

10 DIM $$(32) 

20 LET D=INT (15*RND) +2 

32 CLS 

49 PRINT "ВАЗЕ IS ";D 

60 LET A=INT ((4294967295*RND) 
/(1+19090008*ЕМ)) +1 

70 ТЕТ C$=STR$ А 

80 GOSUB 200 

90 PRINT "NUMBER IS" 

100 PRINT S$(34-I TO 32) 

110 PRINT "ENTER THE NUMBER BAS 
Е 10" 

120 INPUT G 

138 IF G=VAL C$ THEN PRINT "COR 
RECT" 

149 IF G<>VAL C$ THEN PRINT "WR 
ONG IT IS ";C$ 

15@ PAUSE 500 

160 GOTO 20 

200 LET I=1 

220 LET B=A—DXINT (A/D) 

230 LET A=INT (A/D) 

235 IF B>9 THEN LET S$(33-I)=CH 
R$ (Z+B) 

236 IF B>9 THEN GOTO 259 

249 LET S$ (33-I)=STR$ B 

250 LET I=I+1 

260 IF А» Й THEN GOTO 220 

270 RETURN 


Your Number Is Ор 115 


“Your” Number Is Up 


This is the opposite of the game “BASE”. You should first play 
“BASE” to learn how to convert any given decimal number to 
another base other than 10. “YOUR” NUMBER IS UP tests your 
ability to convert numbers from any given base to base 10. 

You will find this a very challenging game since it tests your 
skill in converting numbers written in varying bases from 2 up to 
16. Actually, you could change that to bases 2 up to 36 quite easily 
by changing the 15 in line 20 to 35. Then the letters A, B, С,...2 
would stand for the numbers 10, 11, 12, ... 35, respectively. 
However, it is only practical to use the numbers up to base 16, so | 
make use of only the letters A, B, C, D, E and F to represent the 
numbers 10, 11, 12, 13, 14 and 15, respectively. 

A typical run goes like this. When you type in RUN, a mes- 
sage like this is displayed 

BASE IS 14 

NUMBER IS 

9C 

ENTER THE NUMBER BASE 19 

Now 9C stands for 9x14 + 12 = 138. Suppose you enter 
136. The computer responds with 


WRONG IT 15 138 


Then a new problem is posed. lf you are correct, the mes- 
sage given is just 
CORRECT 


and again a new problem 1$ posed. 

If you have a T/S 1500 or T/S 2000, you will notice that RAND 
comes out as RANDOMIZE. Lines 6 and 235 allow for the different 
code for the characters A, B, C, ... in the ZX81, T/S 1000, T/S 
1500 and T/S 2000. 

To quit at any time, enter Q in response to the prompt for your 
answer. 
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“Теп” Stacks (1К) 


19 DIM A$(3,9) 
29 PRINT "INPUT N" 
30 INPUT N 
49 ТЕТ М=б 
50 LET A$(1) = "АВСРЕРСНІ" 
89 CLS 
99 LET М=М+1 
100 FOR Т=1 TO N 
110 PRINT A$(1,1);TAB 19;4$(2,1 
); TAB 29;A$(3,1) 
120 NEXT I 
139 PRINT "INPUT MOVE ";M 
140 INPUT B$ 
150 LET C=VAL В$(1) 
160 LET ре VAL В%(2) 
170 FOR I=1 TON 
189 IF A$(C,I)=" " THEN GOTO 26 
Y 
198 FOR J=N TO 1 STEP -1 
200 IF A$(D,J)< >" " THEN GOTO 2 
38 
219 ТЕТ A$(D,J)=A9%(C,I) 
220 GOTO 240 
230 NEXT J 
249 LET A$(C,I)=" " 
250 GOTO 89 
260 NEXT I 
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“Zen” Stacks 


In a monastery, high in the mountains of Tibet, a group of monks 
struggles valiantly to save the universe from destruction. Their 
task, imposed by a superbeing from another galaxy, is to shift 60 
counters of different magnitudes from one stack to another. They 
are allowed to form three stacks while doing this. At the beginning, 
all the counters were on the first stack, arranged in increasing 
order. Only one counter at a time can be moved. The problem is to 
move all the counters to the third stack in the least number of 
moves. There is one vital restriction. At no time should a greater 
counter be on top of a lesser one. One mistake and the universe, 
as we know it, ends. So the monks toil on, carefully contemplating 
each move. 

In this game, you get to move the counters, which are the 
letters А, В, С, ... stacked in increasing alphabetical order from 
the top down. You are asked to input the number of counters (from 
1 to 9). You are then invited to input your moves. You input a two- 
digit number. If you wish to move the top counter from stack 1 to 
stack 3, you input 13. To move the top counter from stack 3 to 
stack 2, you input 32, and so on. 

I leave you to solve the following mathematical problems. In 
order to solve the problem in the fewest number of moves, you will 
have to move the first counter onto the correct stack. For an odd 
number of counters, you should move the first counter onto which 
stack? Once you have this figured out, you will also know which 
stack to move the first counter onto if you have an even number of 
counters. Now, what is the minimum number of moves for N 
counters? Solve the game for М = 1, 2, 3, ... and see if you can 
arrive at the general rule. 

In this simple 1K version of the game, | have not put in any 
checks on your moves. So if you enter an invalid move, the game 
is likely to stop. If you have more memory, you might prefer the 
following 2K version, which | think makes the game more епіоу- 
able. 


120 Brain Games юг Kids and Adults 


“Zen” Stacks (2K) 


19 DIM A$(3,9) 
20 PRINT "INPUT N" 
25 LET Каф 
30 INPUT N 
35 IFN< 108 М> 9 THEN GOTO 20 
40 LET M29 
50 LET A$(1) ="ABCDEFGHI" 
69 LET A$(2) = "МИ" 
70 LET A$(3) =A$(2) 
80 CLS 
90 ТЕТ М=М+1 
100 FOR Т=1 TO N 
118 PRINT A$(1,1);TAB 19;A$(2,1 
);TAB 29;A$(3,1) 
120 NEXT I 
125 IF K=1 THEN GOTO 299 
130 PRINT "INPUT MOVE ";М 
140 ТМРОТ В$ 
150 ТЕТ C=VAL В$(1) 
160 ТЕТ D=VAL В$(2) 
165 IF Ge LOR DE 10% 0» S OR DS 3 
ОВ С=р ТНЕМ GOTO 270 
170 FOR Т=1 TO N 
180 IF А$(С,І) = "№" THEN GOTO 26 
0 
190 FOR J=N TO 1 STEP -1 
200 ТЕ A$(D,J)< > "BF THEN GOTO 2 
39 
210 LET A$(D,J) =A$(C,I) 
212 IF J=N THEN GOTO 249 
214 IF A$(D,J)» A$(D,J+1) THEN G 
ОТО 279 
229 GOTO 249 
239 NEXT J 
240 LET A$(C,I) =" 
245 ТЕ I=N АМ) 7-1 AND D=3 THEN 
ТЕТ К=1 
250 GOTO 89 
260 NEXT I 
270 PRINT "INVALID MOVE." 
275 PRINT "THE UNIVERSE IS DOOM 
Ер." 
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289 GOTO 29 
299 PRINT "UNIVERSE IS SAVED IN 

";М-1;" MOVES." 

300 GOTO 20 

The symbol “ й" is the graphics symbol on key 5 and will 

symbolize poles onto which the counters slide. When counters are 
removed, the pole reappears. The game may be played in either 
SLOW or FAST modes. To quit at any time, enter Q in response to 
the prompt INPUT MOVE. 
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